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1.0 INTRODUCTION 



1»Q XNlgOOaQIIOl^ 



The SIMULATED NOS/VE PROGRAH INTERFACES are provided for programs 
running on the CY8ER 180 SIMULATOR. Their intent is to duplicate 
the CY8IL interfaces available on the CYBER 180 under NOS/VE. 

!•! APPLICABLE DOCUMENTS 

NOS/VE ERS - PROGRAM INTERFACE CARH3510* REV 5) 

ERS for CY8IL I/O (ARH2739I 

ERS for C180 SIMULATED ENVIRONMENT (ARH1729I 
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2.0 SIHULATEO NOS/VE I/O INTERFACES 



2.1 INTRODUCTION S 

The SIHULATED NOS/VE I/O system <AHP$) consists of a collection I 
of procedi^es and comwon data type declarations which provide for 

the use of a subset of the NOS/VE I/O orocedures described in the I 

NOS/VE ERS - PROGRAM INTERFACE, section 6 on FILE MANAGEMENT, I 

The SIMULATED NOS/VE I/O systera provides two distinct methods of I 

performing I/O. The first method uses the CYBER 180 SIMULATOR to I 

simulate NOS/VE programs* This method is hereafter refered to as ? 

"SIMULATED NOS/VE I/0"« The second method provides for dl-ect I 

execution of the user program on the NO3/170 machine. The second J 

method is hereafter called the ••NOS/170 INTERFACE". SIMULATED I 

NOS/VE I/O and NOS/170 INTERFACE together are hereafter referred to I 

as the -SIMULATED NOS/VE I/O system**. i 

SIMULATED NOS/VE I/O is available only as part of the CYBER IBQ i 

SIMULATOR on a NOS/170 machine. SIMULATED NOS/VE I/O is compatible t 

only with programs compiled to generate CYBER 180 obfect code, such J 

as the CYBER 180 CYBIL compiler CCI version) or CYBER 180 Assefl bl y I 
Language. 

The NOS/170 INTERFACE is compatible only with programs writtei in I 

the CYBIL language and compiled with the CC (NOS/17 ob|ect cadel \ 

version of the compiler. The NOS/170 INTERFACE consists of a sef of ? 

object time routines that emulate NOS/VE I/O calls* This interface I 

is provided as a means of running programs directly on a NOS'17 ? 

machine and {optional ly) using the CYBIL debugger. J 

It is assumed that the user is familiar with the CYBIL iangjage I 

and that the user has read the NOS/VE ERS - PROGRAM INTERFACE, S 

section 6 on FILE MANAGEMENT. i 
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e.l.i USAGE OVERVIEW 

The following block diagrams illystrates the generalized usage 
structure for this product. The SIHULATEO NOS/VE I/O diagram is not 
intended to be complete in detailt rather it is meant as a 
generalized overvieii of the capability added to the CY8ER 18Q 
SIHULATOR by this I/O product. The method diagrammed for SIHULATEO 
NOS/VE I/O executes the user program by itself on the CY8ER 180 
simulator. Alternatives to this **stand alone*" method* such as usir^g 
the NOS/VE operating system* are available for program simulation. 
Further details on these other methods is not herein provided. 

The diagram of the NOS/170 INTERFACE shows how one may taKa a 
program to be run on NOS/VE and debug the program with the Cf 3IL 
debugger by compiling the program and running the program on the 
NOS/170 machine using the NOS/170 INTERFACE. 
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SLOCK OIAGRAH OF SIHULATED MOS/VE I/O USAGE OVERVIEW, 
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SLOCK OIAGRAH OF NDS/170 INTERFACE USAGE 
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2.1.2 FILE TYPES 

The SIMULATED NOS/VE I/O system CAHP$> provides by default the 
record access level on unlabeledf seguamtial or byte addressable 
files with "W* type records on raass storage. This file strycturj is 
identified as having a block type of "aiac$systeffl_speci tied" and a 
record type of "amcSvariable'*. SIMULATED NOS/VE I/O also provides 
the record access level for unlabel ed* sequential files on nass 
storage only tfith the *' interchange*' file format* which provides for 
access of NOS/170 files directly by a NOS/VE program. The 
"interchange** file format is identified as having a block type w^ich 
is "amcSuser^specif ied" and a record type which is "amcSundef ins d". 

Segment access and physical <read/write> access are not 
provided* No other record types* such as Ansi fixQd are permitfed. 
Only mass storage files may be accessed by this products, with the 
exception of the interactive terminal files. User supplied axit 
procedures are not supported either. 

The NOS/i70 INTERFACE provides an equivalent Interface for 
programs compiled with the CYBIL CC compiler, generating object :; ode 
for a CYBER 170 machine. Only the "amcSvariable" record_typa is 
provided by this interface. 

2.1.2.1 i2!^iUlJL.l£0MISm^MfiEQi-IX££-.MaSdi£-FiL£S 

A control_word type file (also called W-typel has a record f ype 
ordinal identifier of "amcSvariable". "Amc$variabl e" record typa is 
distinguished by the fact that each record in the file is precaded 
by a record_header. For SIMULATED NOS/VE I/O the record_heade- is 
eight «8) bytes long. For the NOS/170 INTERFACE the record^hea der 
is onQ CD word long. 

This NOS/VE file structure is expected to be the most con mon 
NOS/VE file type, being used for batch job and interactive input and 
output, compilers, editors, and most other other called programs. 
Input and output to the interactive user terminal or batch Job are 
also provided. A record is the nominal unit of data transfe* in 
NOS/VE I/O, which is a different terminology than is used by 
NOS/170. For a more complete description of the NOS/VE I/O system 
refer to the NOS/VE ERS document. 

The "amcSvarlable" file format of SIMULATED NOS/VE I/O does not 
record data on a NOS/170 file in a format which is dire:tly 
accessable by any other NOS/170 products, such as editors, 
compilersf etc. Data conversion is provided only for character data 
via the conversion utilities <see Section 8 and 91. 
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2.1.2.1.1 SEQUENTIAL NOS/VE FILES 

Seqyential files have only sequent iaJ access and is identlflei as 
having a f He^organlzation of "*aiBC$S€qyential"« Data appears in the 
file in the order in which it was written* and can only be read in 
that sarae order. These files way be positioned at the beginning or 
end of inforwation. Note that positioning at the beginning and then 
writing a sequential file ii»olies that all data which was previojsly 
present on the file is lost* 

2.1.2.1.2 BVTE ADDRESSABLE NOS/VE FILES 

Byte addressable files are like sequential files except the file 
way be positioned randomly by specifying a "byte address". 3yte 
addressable files are identified as having a file organization of 
••amcSbyte^addressabl e". Note that writing from the beginning 5f a 
byte addressable file does not necessarily irapiy that existing lata 
(which follows the data being written) will be lost as is the :a5e 
with the sequential files* 

Byte addresses returned by the SIMULATED NOS/VE I/O system sh3yJd 
be» but faay not necessarily be the same as the byte addresses 
returned by NOS/VE* 

2*1*2*2 NQS/17Q OR "INTERCHANGE*' fJl^^ 

The "interchange" file format is provided as a aeans of dire:t!y 
accessing any N0S/17Q file* This file type is identified as ha/ing 
a record type of "amcSundef ined*"* 

** Interchange" files are defined to have no record structure* 
Data from an "interchange" type file is mapped into a NOS/VE program 
in terms of whole (NOS/170) words* Each 60-bit, NOS/170 *iord 
occupies the rightmost 60 bits of eight consecutive bytes Co** &^ 
bits) of virtual memory. The remaining bits are zero filled* ^hen 
an "interchange" type file is written, only the rightmost 60 bits of 
every 8 bytes is recorded on the file. For both gets and puts the 
users working storage length must be specified as an even multiple 
of 8 bytes, else an error is returned. Also, since only wioie 
NOS/170 words are transmitted the "record_l ength"* "transfer_coui t", 
and "byte_address" parameters returned by any of the "amp$g2t_" 
procedures will always be even multiples of 8. 

SIMULATED NOS/VE I/O transmits data for an "interchange" type 
file only in terms of Physical Record Units <PRU*s), which for aass 
storage files must be 6^ NOS/170 words, or 512 bytes of virtual 
memory. For this file type SIMULATED NOS/VE I/O provides only for 
the physical transfer of whole (NOS/170) words of data* 

SIMULATED NOS/VE I/O support of "INTERCHANGE" files inclides 
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2.1. 2.2 NOS/170 OR -INTERCHANGE- FItES 

reading of single record files and reading of reyl t l_record files. 
Reading of -ffiulti.file fUes" is not supported. SIMULATED NOS/VE 
I/O support of -INTERCHANGE" files also includes writing siigle 
record files and writing myltl^record files. Generation of 
"niulti^file files- is not supported. 

For all •"interchange" files the NOS/\fE prograni must provide any 
necessary blocking or deblocking of the data. 

This file type is not available with the NOS/170 INTERFACE. I 
CY8IL I/O may be used. J 

2.1.2.2.1 SEQUENTIAL -INTERCHANGE- FILES 

Each get_next or pyt_next transmits whole PRU"s, or multiples of 
512 i bh * n ) bytes of data. A get^naxt of less than 512 bytes of 
data will transmit the requested number of bytes of data and 
advances the file to the next PRU of data. A get_next of a siort 
PRO with a NOS/170 -end_of_record" or a get_next of a short PRU /«ith 
a NOS/17 "end_of _f i le- will cause an "amcSeop- (end_of_part iti on) 
status to be returned* in addition to a^y data returned and the file 
is positioned at the PRU following the short PRO. Get^parriai 
requests may be used to retrieve lesser amounts of data in each PRU 
without skipoing any data in the PRU. After a get_partial 3f a 
short PRU transmits the last word of data in the PRU it operates 
Just like a get_next of a short PRU. A get_partial transmits :Jata 
up to the end of the PRU but does not cross a PRU boundary. 

A put_next writes a whole PRU of data and advances the file to 
the next PRU* A put_next of less than 512 bytes causes a short PRU 
with a NOS/170 "end^of ^record" to be written. A put_partial «ith 
-term" parameter of "amcSstart" or "amcScont" may be used to add 
data to the last PRU of the file without causing a short PRU to be 
written and without causing the file to advance to the n^'Kt ^RU, 
unless the PRU is filled by the put_partial. A put^partial ^ith 
"term- parameter of "amcSterm-, which does not fill a PRU with dsta, 
will cause a short PRU with a NOS/170 -end_of ^record" to be written 
and the file will advance to the next PRU. After a put_partial is 
used to put some data in a PRU a put_next may be used to fill the 
PRU with data, but if the PRU is not filled by the put_next than a 
short PRU with a NOS/170 "end_of_record- is written and the file 
advances to the next PRU. 

2.1.2.3 NQ^/170 FILE ACCESS BY SIMULATED NOS/VE I/O I 

SIMULATED NOS/VE I/O utilizes the CYSIL I/O procedures for data I 
transmissions with the NOS/170 files. For "amcSvariabl e" type files 
the CYBER 18 program requests use S^bit bytes as the unit of 21 at a 
transmission, whereas NOS/170 uses 60-bit words as the unit of lata 
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2*0 SIMULATED NOS/VE I/O INTERFACES 

2*1. 2«3 NOS/170 FILE ACCESS BY SIMULATED NOS/VE I/O 

transroission- The object program interface for SIMULATED NOS/VE I/O 
records inforr^ation for the aracSvariable record_type on the NOSj'l/fl 
file at seven S-bit bytes per CYBER 17 CPU word. A record can 
start at any byte address on the file. 

The iniQr\<i%<i use of the SIMULATED N3S/VE I/O system for 3yte i 
addressable files is that the file initially be written sequentially I 
and subsequently the file may be accessed randomly and records may i 
be rewritten randomly or new records may be added at enl of 1 
information. It is not recommended that the user program gene-" ate I 
byte addresses for putting records into a file. Any usage of this 
product ♦ other than that intended* may not necessarily be compatible 
with NOS/VE. 

For '"interchange- or amcSunde fined record type files accessed by 
SIMULATED NOS/VE I/O the processing of any internal data structure 
of each PRU of data transmitted is the exclusive resoonsibil it/ of 
the CYBER 180 program. 

2. 1.2. if N0S/17Q INTERFACE FILES i 

Only the control^word type of files are provided by this I 

interface. Interactive input /output is also available. The NOS/17 i 

INTERFACE does not record data on a file which is dire:tly 1 

accessable by any other NOS/170 products. Conversion is provided I 

only for character data. See Section 9 for details as out I 

conversion. I 
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2,2 I/O PROCEDURES 

2.2 IilO_£^££.aUS£I 

Only the following I/O procedures are supported by the SIMULATED J 

NOS/VE I/O system. The procedures are listed alphabetically. I 

The user is cautioned that undefined input parameters of the 
procedures give undefined results. Other procedures in the -ILE 
HANAGEHENT section of the NOS/VE ERS which are not laentioned in this 

ERS are not supported by the SIMULATED NOS/VE I/O system. I 

2.2.1 AMPSCLOSE 

This procedure closes the file and invalidates the file 

identifier of the file. This procedure is fully supported by the J 

SIMULATED NOS/VE I/O system. I 

2.2.2 AMPSFETGH I 

AMPSFETCH returns the identical f i I e_at tribute information as the I 

AMP$GET_FILE_ATTRIBUTES procedure. AMPSFETCH requires the I 

f i ie__ldentif ier of an open file as inputs whereas I 

AMP$GET_FILE_ATTRIBUTES uses I ocal _f i I e^naroe. The caller nust I 

initialize all f i le_at tribute keys and AMPSFETCH returns the I 

corresponding file_attribute value. Refer to the section on data I 

types for a complete description of f 11 e_attributes returned by the I 

SIMULATED NOS/VE I/O system. "" I 

2.2.3 AMP$FETCH„ACCESS_INFORHATION J 

This procedure returns information about the current status of \ 

the file to the caller. The information is returned in the I 

access^informatlon record. The caller must initialize all 1 

access_in formation keys and the SIMULATED NOS/VE I/O system retjrns 1 

the corresponding access_lnformat ion value. Refer to the section on 1 

data_types for a complete explanation of the information returned by I 

the SIMULATED NOS/VE I/O system. \ 

2.2. «♦ AMPSFILE J 

This procedure defines the attributes of a file. Although NOS/VE I 

I/O permits this procedure to be executed at any time» the SIMUL^VTED I 

NOS/VE I/O system does not permit this procedure to be executed *ihen 1 

the file is open. The AMPSSTORE procedure may be used Instead. J 
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2.0 SIMULATED NOS/VE I/O INTERFACES 
2.2,^ AMPSFILE 

The caller wust initialize the f U e_attrifoytes parameter* >oth I 

key and value* before calling AHP$FILE» All fi le_at tributes are i 

accepted by the AMPSFILE procedure as input* but only >ome i 

f iie_attributes are used by the SIMULATED NOS/VE I/O system. Rater I 

to the section on data types for a description of the J 

file_at tributes parameter. The user wust also supply i 

local_f i le^name as input. S 

2*2,5 AMP$GET_FILE_ATTRIBUTES ! 

This procedure is norfsaHy executed before opening a fil» to I 

determine the previous definition* if any* of the file. The t 

information is returned in the f il e_attributes record. The caller J 

must initialize all f i le_at tribute keys and the SIMULATED NOS/VE I/O I 

system will return the corresponding f il e_attribute value. The jser I 

must supply the locai_f i le_name parameter as input. Status of the I 
request is returned in "status". 

AMP$GET_FILE_ATTRIBUTES will return default values for all I 

flie_attributes if the file is unknown to SIMULATED NOS/VE I/O J 

system. Refer to the subsequent section on data types f>r a I 

description of the f ile^attributes parameter. I 

2.2.6 AMP$G£T_DIRECT 

This procedure returns data from fhQ location on the file 
specified by the caller. This procedure is fully supported by the I 
SIMULATED NOS/VE I/O system for files *«ith amcSvariable I 
record_type. This procedure is supported with "interchange" type 
files having a record type of amcSundef ined but the byte_add"* ess 
parameter must specify the first byte of a PRU < be a multiple of 
512 )• NOS/VE will not provide this procedure for "interchange" S 
files. I 

2.2.7 AMP$G£T_NEXT 

This procedure returns the next sequential record of data from 
the file to the user program. This procedure is fully supported by J 
the SIMULATED NOS/VE I/O system. \ 
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2.2.8 AMP$GET_PARTIAL 

This procedyre returns a partial record from the next location of 
the file. Subsequent AHP$GET_PARTIAL requests are used to retrieve 
the remainder of the total record. This procedure is f j 1 I y 
supported by the SIHULATED NOS/VE I/O system, 

2.2.9 AHP$OP£N 

This procedure opens a fUe whose I ocal _f i ie^naiae is input and 
returns the f H e_i denti f ier to the caller. The only access_l3vel 
parameter permitted is '•aracSrecord**. This procedure is fjliy 
supported by the SIHULATEO NOS/VE I/O system* with the exceptlans 
that multiple opens of the file at the same time are not permitted 
and the I ocal_f il e_name must conform to the limits of construct ion 
imposed by the SIHULATEO NOS/VE I/O system. Refer to the section on 
data types for an explanation of the limits to ihe construction of 
I ocal_f i le_na«e. 

2.2.10 AMP$PUT_OIR£CT 

This procedure puts a whole record into the file at the 
byte_address specified by the user. This procedure is filly 
supported by the SIHULATED NOS/VE I/O system for files with re:ord 
type of amc$yariable. The user may rewrite an existing record on 
the file» or the user may write a new record at or beyond the end of 
information currently defined for the file. This means that the 
byte address specified must point to an existing record on the file 
<so that amp$put_direct re-writes the existing record) or 3yte 
address may point beyond the last record of the file <so 
amp$put_dlrect adds a new record to the file). 

This procedure is supported for *' interchange" type files haviig a 
record_type of amcSundef ined, but the byte_address parameter nust 
specify the first byte of a PRU. A put_direct may rewrite an 
existing PRU of the file or it may write a new PRU at 
end_of ^information only. Put_direct can not be used to write be/ond 
end_of_inforraation. NOS/VE will not provide this procedure for 
"interchange" f i les. 

2.2.11 AHP$PUT_NEXT 

This procedure transfers a whole record from the users wording 
storage area to the "next" location in a file. This procedure is 
fully supported by the SIHULATEO NOS/VE I/O system. 
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2.2. 12 AMP$PUT_PARTIAL 

This request transfers a partial record from the users wording 

storage area to the "next" location in the file. NOS/VE oermits the I 

user to put one or wore parts of a record into the file foHowei by i 

a put partial specifying the start of a new record* but ihe I 
SIHULATED NOS/VE I/O system does not support this feature. Once the 

first part of a record has been put into the file the user must do a I 

put partial of the last part of the record before a new record Is t 

startedf else an error is returned* Ail other features of I 

put_partial are supported by the SIMULATEO NOS/VE I/O system. I 

2*2,13 AMPSREWINO 

This procedure positions a file at beginning of information. 

This procedure is supported by the SIMUtATEO NOS/VE I/O system* but I 
the WAIT parameter is not Interrogated as OSC$WAIT is assumed. 

2.2. 14» AMPSSEEK^OIRECT \ 

AMP$SEEK_OIRECT is used to set the current^by te^address of a file I 

to a new value. This procedure may be used only on files opaned I 

with a f i le_organization of amc$byte_addressable. ? 

The caller must insure that the byte_address parameter iiput t 

points to the start of a record. Amp$seeK_direct does verify that I 

the new current_byte_address does point to the start of a record. A I 

subsequent amp$get_next* amp$get_part iai ♦ amp$put_nextt or I 

amp$put_partial call that uses current byte address would return an « 

error if an invalid byte^address parameter were input to I 

amp$seek_direct. I 

2.2.15 AMPSSTORE J 

AMP$STORE procedure is used to sat file attributes o f an 3pen I 

file Identified by the f i le_iden ti f ler parameter. Fi I e_attribj tes I 

to be changed are specified by the store_attributes parameter. The I 

store_attributes parameter is a subset of the f i le_attribj tes t 

parameter used by the procedures AMPSFETCH, AMPSFILE* and I 

AMP$G£T_FILE_ATTRI8UTES. AM store.attr ibutes are permitted by the I 

SIMULATED NOS/VE I/O system. Refer to the section on data types for J 

a complete description of which f i I e_attributes are Hgal I 

store_attributes and which f i le_attributes are interpreted by the I 

SIMULATEO NOS/VE I/O system. 5 
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2.3 DATA TYPES 

This section defines the CY8IL language 
interface the SIMULATED NOS/VE I/O system. 



types* required to 



The 

to the 
subset 
eiBploy 
NOS/VE 
which 



data 
data ty 
of the 

coram on 
I/O s 
are not 



by the SIHUL 
those data typ 
allowed in the 



types necessary for SIHULATEO NOS/VE I/O are identical 
pes necessary for the N0S/17Q INTERFACE and ar* a 
total capability provided by NOS/VE» yet the user «« 1 1 I 
decks which provide a complete definition of the 
ysteai. This means that there will be some data t/pes 
used and some defined values of paraineters not all^wad 
ATEO NOS/VE I/O systeiB. This section describes 3nly 
es used and describes which values of parameters are 
SIHULATEO NOS/VE I/O system. 



A complete listing of each of the common decks employed by the 
user is given in Section 5* These common decks are input to the 
CYBIL compiler, but they contain comments which describe the roeaiing 
and usage of the defined data types and procedure parameters. The 
NOS/VE definitions described in the common decks will always a>ply 
to SIHULATEO NOS/VE I/O and the NOS/170 INTERFACE, unless this 
document states otherwise. 

The NOS/VE common decks are subject to change. The use* is 



cautioned 
and that 
INTERFACE 
ProbI ems 
is used. 



that the definitions in the common decks will always a^oly 

as necessary, SIMULATED NOS/VE I/O and the NOS/'lfO 

will be updated to reflect such changes in NOS/'VE. 

with usage might arise where an out of date ERS refers nee 



2.3.1 ACCESS^INFORMATION 



ACCE 
records 
inf orma 
many p 
must in 
I/O sy 
ACCESS,. 
AMOFNFO 

The 
access_ 
access 
and wha 
The le 
current 
I/O sys 



SS_INFORMATION is an adaptable array of c 
. Each case variant record holds one pie 
tion. The adaptable array allows the caller t 
ieces of access Information as needed per call 
itialize all access_inf ormation keys and the SIM 
stem returns the corresponding access informatio 
INFORMATION parameter is described in the 
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information 
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tter -S* 



NOS/VE I/O system accepts all t 
cases. The following table shows wh 
are maintained by the SIMULATED NOS/ 
access information have default valu 
in the value returned column indie 



value of the access Information kept by the SIM 
tern is returned. The letter "D* in the value re 
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2,0 SIMUtATEO NOS/VE I/O INTERFACES 
2,3.1 ACCESS_INFORMATION 



indicates that a default vaiye is returned and the value is givei in 
the default value colui^n. The COHHON DECK coluran tells which consion 
deck contains the definition of the corresponding access value 
"type'% 

TABLE of ACCESS^INFORMATION 

ACCgSS 
IMEOEMIiSH- 

access_l eve! 

a I locat ion_uni t_l ength 

folock_nuniber 

current_byte_address 

eye I e^number 

device_c lass 

eo i _b y te_ad dre ss 

error_status 

f i I exposition 

global_f ile^nawe 

global_share_jBode 

last_operation 

I ast_op_status 

local_f i le^naiae 

recop d_header_ I engt h 

record_l ength 

res i dua I _sK ip_count 

storage_class 

trans fer_count 

volume number 



.QQMMOJ^,. 


Mim 


mzmii 


nttlL. 


EEIUSMLO^ 


mxjJiL 


AMDOPEN 


D 


amcSrecord 


AMD INFO 


D 


20tf8 


A MO INFO 





1 


AMOGLOB 


S 




PF0ATR8 





1 


RMOCLAS 


s 




AMOGLOB 


s 




OSDSTAT 








AMOGLOB 


s 




A MO INFO 








PFOATRB 


D 


nu II se t 


A MO INFO 


s 




A MO INFO 





amcScompI ete 


AMONAME 


s 




AMORCOH 


D 


a 


AMOGLOB 


s 




A MO INFO 





1 


RMOCLAS 





rmcStemporary^device 


AMOGLOB 


s 




A MO INFO 


D 


1 



2.3,2 ACCESS.LEVEL 

This parameter indicates what type of access is desired when fh& 
file is opened. This parameter must be set to the ordir^al 
&1!£SS££0SQ ^hef\ the file is opened else an error is detected. The 
user must always set this parameter prior to calling AMPSO^EN. 
Other ordinal values are not supported. 



2.3.3 8YTE_A00RESS 

Byte_address is a parameter returned by AMP$GET_N£ XT, 
AMP$PUT_N£XTt AMPSGET^PARTIAL, and AMP$PUT_PARTIAL. 3yte_addres5 is 
an input parameter to AMP$6ET_0IRECT and AMP$PUT_DIRECT. 

For a NOS/VE format file byte_address is the number of d-bit 
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2.3*3 8YTE_A00RESS 



bytes from the beginning of 
current record in the file. 



information to the location of the 



For a NOS/170 format or "INTERCHANGE" file byte_addres3 is 
defined as the number of S-bit bytes from fhQ beginning of 
information to the location of the first byte in the current worj in 
the file. Because only whole NOS/17 words are tra nsmitted* 
byte^address for this file type will always be an even mu I tip 1 3 of 
8. 



2.3*'* FIL£_ATTRI8UT£S 

FILE_ATTRIBUTES is an adaptable array of a case variant record. 
Each case variant record holds one fi I e_at tribute. The adaptable 
array allows the user to process as many attributes as needed Qi^r 
procedure call. Fil e_attributes are returned to the caller by the 
procedures AMP$GET_FIL£_ATTRIBUTES and AMP$FETCH. Fi I e_a ttrlbj tes 
may be specified by the caller of the procedures AHPSFILE and 
AMPSSTORE. Note that for the procedure AHPSSTORE the parameter is 
type AMT$ST0RE_ATTRI8UTESf but upon closer inspection one discovers 
that this type is actually a subset of the AMT$FILE_ATTRIBJ TES 
type. The definition of the f i le_attr ibute parameter is contained 
in the common deck AMDFATT and the definition of the store_attriD ute 
parameter is contained in the deck AHOSTOR. 

The SIMUtATEO NOS/VE I/O system accepts and returns all the 
different cases of AMT$FItE_ATTRI8UTES. The following table siows 
what attributes are legal AMT$ST0RE_ATTRI8UTES» whether the 
attribute information is retained by the SIHULATED NOS/VE I/O 
system, and what value is returned by the SIMULATED NOS/VE I/O 
system. The table also shows the default value returned by 
AMP$GET_FILE_ATTRIBUTES when the file is unknown. The letter -S' in 
the ACTION TAKEN column indicates the system saves the information 
in its file tables and returns the same saved information to the 
caller and the default value is returned only when the file is 
unknown. The letter * 0* in the ACTION TAKEN column indicates the 
SIMULATED NOS/VE I/O system defaults, the attribute value is not 
saved, and the system returns a default value for alt files. The 
COMMON OECK column gives the name of the common deck which defines 
the corresponding f i le_at tribute "type". 

TABLE of FILE.ATTRIBUTES 



FILE ATTRIBUTE 

access_mode 
block_header_l ength 



IIML- CgMMOE^ AaiIQM_ 0£FiUtI 
illSiaUIL i2££ll- Ik^m^ MLli£ 



no 


PFOATRS 


S 


null set 


no 


AMD3LKH 
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2,3,«f FILE^ATTRIBUTES 



block^type 

character_.convers ion 

c}ear_space 

e rr o r _e X i t _p r o c e d u r s 

error^optlons 

f A I e__coniinand_process ing 

f il€_content 



f He^disposit ion 

f i ie_t iiBit 

til e_organizat ion 

hor i z on t a I _pr i n t_den si t y 

internal _code 

J ob_l ocal_share_mode 

I abe I _exi t_procedure 

label^options 

label _type 

I ine^nuRiber 

roax_b i ocK_l eng t h 

niax_record_ length 

iiiln_block_length 

iain_record_length 

open_position 

owncode_procedure 

paddlng_character 

page^forwat 

P3ge«.length 

P3ge_ifiidth 

preset_vaiye 

record_type 

ring_at tributes 

suppress_byf f ering 

trans fer_un it 

user_lnfo 

vert icai_ppint_densi ty 



no 


AHDFILE 


S 


yes 


ANDFATT 





no 


OSOCFS 





yes 


AHDFILE 





yes 


AMOFILE 





no 


AMOFATT 





yes 


AMOFILE 





no 


AMOFILE 





yes 


AMOFILE 


S 


no 


AMOFILE 


S 


yes 


AMOFILE 





no 


AMOFILE 





no 


PFOATRB 





yes 


AMOFILE 





yes 


AMOFILE 





no 


AMOFILE 





yes 


AMOFILE 





no 


AMOGLOB 





no 


AMOGLOB 


S 


no 


AMOFILE 





no 


AMOFILE 


S 


no 


AMOOPOS 


s 


no 


PMONAME 





yes 


AMOFILE 





yes 


AMOFILE 





yes 


AMOFILE 





yes 


AMOFILE 





no 


AMOFILE 





no 


AMOFILE 


s 


no 


AMOFILE 





yes 


AMOFATT 





yes 


AMOFILE 





yes 


AMOFILE 





yes 


AMOFILE 






aaic$systefB_specif ied 

FALSE 

FALSE 

NIL 

afBc$terminate_f il e 

FALSE 

aiscSunkn own _c lass t 

amc$ynkno«n_kindt 

arocSynknown_natu?*a 

amc$task_l ocai 



awcSseqyent iai 

afflc$ten_cpi 

a{ic$asc i i 

ny i I set 

NIL 

null set 

awcSynl abel led 

1,1 

1 



1 



aroc$open_at_boi 

NIL 

bi ank 

anicScon t inuoys_f ) rm 

66 

72 

Q 

aiacSvariabl e 

15,15,15 

FALSE 

aracSt 

blanks 

ai])£$six ipi 



The sybseqyent sections describe those f i le_attribytes wiich 
directly affect the use of the SIMULATED NOS/VE I/O system. 

2.3.«f«l ACCESS MOOE 

Access_niode is a set of 5 attributes- Any corabinatioi of 
access_mode set members is permitted* AM set members ex:eot 
PFCSEXECUTE are used by the SIMULATED NOS/VE I/O system. 

££Q.£S^£A|1 access_mode by itself means the file can only be r3ad. 
When pfc$read is the only access_mode sat element the open_posiMon 
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2.3»^,1 ACCESS_MO0E 

of the file must not be open at end of inforraation« When used *flth I 

other acc€SS_iaode set elements it means the file can also be real • I 

pFCS^^IQRTgH access mode by itself i«eans ihe file can be rewritten I 

from beginning of information to end of information only. The file I 

size cannot increase. The file may not be read unless the S 

access_mode set element pfcSread is also present. Each «*ite I 

establishes a ne« end of information and all data previously in the I 

file beyond end of information is lost. Uhen used with other I 

access_mode set elements it means that iihen the file is closed a new I 

end of information is established for the file at the highest I 

address *iritten. I 

£££ti££E.Mfi access^mode by itself permits the file to be written at I 

end of information only and the open.poslt ion fi I e_at tribute lust I 

correspondingly be set to open at end of information. The file may I 

not be read unless the access_mode set includes pfcSread. When jsed I 

with other access_mode set elements it allows the file size to I 

increase. I 

PfCSMQpIFY access_mode by itself requires an existing file and I 

permits any portion of the file to be written without affecting any f 

subsequent data in the file. The end of information remains I 

unchanged when the file is closed. Whe'^ used with other access_node I 

set elements it causes all previous contents of the file to be I 

retained except the area directly written. 1 

The default value for access_mode is the NULL set. When a file I 

is opened with a NULL set for access_mode the access_mod3 is I 

changed. If the file already exists at the time of the open then } 

access_mode defaults to the set of C PFCSREAO 3. If a new fil» is I 

being created the access_mode defaults to the set of £ PFC$R£AO» I 

PFCSSHORTEN, PFCSAPPENOt PFCSMODIFY 1, I 

For input interactive fiies» such as •INPUT', the SIMULi^TEO I 

NOS/VE I/O system requires the access_mode to be the set of C I 

PFCSREAD 1, which defaults for an existing file. An output I 

interactive file* such as "OUTPUT*, must have an access_mode which I 

consists of the set { PFCSAPPENO 3, ^hich does not default fo^ an I 

existing file. The open^position of the file must be \ 

amc$open_at_eo i too. The restrictions to the access_mode of 1 

interactive files are inherent in the SIMULATED NOS/VE I/O system I 

and are not limitations of NOS/VE. I 
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2.3. ^.2 BLOCK TYPE 

This parameter is an ordinal which indicates blocking strucf ure 
of the file. 

AMCSSYSTEM SPE CIFIE D indicates the default (control _word) N0>/¥£ 
block_type« This is the default file_attribyte returned when the 
file is unknown* 

AhigsUSER ?PEC|£|£0 must be used with a record_type or 

"aracSundef ined" for an "interchange" file definition* which accesses 
a NOS/170 file directly. This block_type is not provided by the 
NOS/170 INTERFACE. 

2.3.i*.3 JEja.£-aSMMlMIlM 

This attribute specifies whether the file is sequential* or 
byte_addressable. 

4^JC$S£aM£NT|AL indicates a sequential file (default value). 

AMqsSYTE .ADDRESSABLE indicates a byte.addressabi e file. This file 
organization is required if get_direct and put_direct procedures are 
to be used. 

2.3. i*. if OPEN POSITION 

This parameter is an ordinal which indicates what positioning 
should be performed for the file being opened. 

AMCSOPEN AT B0| indicates file position is beginning of 

information. This is the required open position if the access_node 
consists only of the set element pfcSread. This ordinal defailts 
when access_mode is a null set. 

AMCSOPE N AT E OI indicates file position is end of information. This 
is the required open_position when the access_mode is the set of 
pfc$append only. 

A^IQJQPEN NO POSIT ION ING indicates file position left unchanged. 

Other ordinal values are not permitted. 

2.3.^.5 S££Q£a-II£E: 

This parameter is an ordinal which indicates the record structure 
of the data on the file. 
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AMC$VARIA8Lg Indicates the default (control^word) type NOS/VE file. 
This ordinal must be used in conjunction with a block_type of 
*"aflicSsysteffl_de faylf to specify the control _word type NOS/VE file. 
This is the default fi le_at tribute value returned when the file is J 
unknown* « 

ArfC$ UNDEFINED indicates an "interchange" file. This ordinal must be 
used in conjunction with a block_type of "amcsuser^soeci f ied** to 
provide the ••interchange" file definition for access of a NOS/17 9 
file directly by the program. This record_type is not provided by I 
the NOS/170 INTERFACE. I 

Other ordinal values of record^type are not supported. 

2.3.5 FILE_IDENTIFI£R 

This data type is used when calling any of the AMPS procedjres I 
except AMP$GET_FILE_ATTRIBUTES and AMPSFILE. A file identifier J 
variable must be provided for each file opened. The valu» of 
f ile_identif ier for a file is returned by AMPSOPEN for the file 
being opened. Fi I evident if ier is used by all other procedjres 
except AMP$GET_FILE_ATTRIBUTES, AMP$FILE» and AMPSOPEN to identify I 
the file being accessed. Multiple opens of a file in the same I 
program are not supported by the SIMULATED NOS/VE I/O system. The 1 
f ile_identi f ier of each file open concurrently will be unique. 
Fi le_identi f ier remains defined until the file is closed. Uider 
NOS/VE a user program may not define more than 2800 files i 
concurrently. This data type must be left undefined by the user. I 

2.3.6 FILE^POSITION 

This parameter is an ordinal that is returned by AMPSGE T_OIRi CT, I 
AMP$GET_NEXT» and AMP$GET_PART lAL procedures. The parameter may ? 
also be returned by AMP$FETCH_ACCESS_INFORMATION. The SIMULATED t 
NOS/VE I/O system currently returns only AMC$80I, AMC$MI0_R£C3 RO, I 
AMC$EOR, or AMCSEOI with the amcSvariable record type. Other 
ordinal values are not returned. See section 3.3 for further 
inf ormat ion. 

For "interchange*" file format the AHCSEOP status can be retu-^ned 
in addition to all the previously mentioned ordinals. A status of 
AMCSEOP indicates "end^of _record'* , or a short PRU of data on the 
file. When the file position is at the start of a PRU the status 
returned is AMC$EOR and when the file position is in the middle 3f a 
PRU the status returned is AHC$MID_RECORO. 
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2.3.7 LOCAL_FIL£_NAH£ 

LOCAL_FILE_NAME is an input parameter for the procedjras 
AMPSFILE, AMPSOPEN, and AMP$GET_FILE_ATTRIBUTES and It is an output 
parameter of the procedure A MP$FETCH_ACCESS_ INFORMATION. 4 hen 
local_f i le_naf»e is input it is an adaptable string type* but whei it 
is output It is a fixed string of 31 characters. 
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2. 3. a RECORD_LENGTH 

Record_length is a parameter returned on all AHP$GET_OIRi CT, 
AMP$GET_NEXT, and AMP$GET_PARTIAL procedure calls. 



For files with record_type of AMC$VARIA8LE the 
parameter is the number of 8-blt bytes in the record* 



record_l ei gt h 



For "INTERCHANGE" files, with record_type AMCSUNDEFInJEO, 
record_l ength parameter is the number of 8-blt bytes into which the 
data from the start of the current PRU to the last word transmitted 
are mapped* that ls» it is 8 times the number of words from the 
start of the current PRU to fhe last word transmitted. 
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2 •3. 9 SKIP 

The skip parameter is inpyt for AHP$GET_PARTIAL procedure. AM I 
ordinal values are permitted* 1 

2.3.10 STATUS 

This data type is used when calling any of the AHP$ procedures. 
Status is a record of data returned by the procedure which indicates 
whether the operation performed was successful or whether an e^ror 

was encountered. STATUS. NORMAL should be set TRUE by the jser i 

before calling any AMPS procedure as the procedures do not change J 

STATUS. No other fields of this record wl M be referenced by the I 

SIMULATED NOS/VE I/O. The NOS/170 INTERFACE will use all fields of i 

this parameter during the course of generating error messages. • 

Since the SIMULATED NOS/VE I/O system does not provide the jser I 

program with error processing capability* a FALSE value of I 

STATUS. NORMAL can not occur. Should SIMULATED NOS/VE I/O detect an I 

error* the simulation run is halted and a diagnostic message is sent I 

to the OUTPUT file Cusually the interactive NOS/170 terminal). 4 hen 1 

the NOS/170 INTERFACE detects an error a diagnostic message is I 

generated and sent to the OUTPUT file and the program aborts. The I 
user may then interrogate the error and restart execution after the 
error is corrected. 

T tig. user Is encouraged to incorporate CQde lor . ?tatMS chec^ In a 1 

into -.ar aaraas^ M^ I n q^ tii&_^iMyL a ie d jjos /i£_i / o^s^^ t ^i^Iq aaliciaaL ia q i 

fii-.cu!miaa>tjie_araaraa§_aa^the_axs£S^lSla_ 

2.3.11 TERM 

Term is an input parameter of AMP$PUT_PARTIAL. All ordinal I 
values are permitted. i 

2.3.12 TRANSFER.COUNT 

Transfer count is a parameter returned by AMP$GET_OIRE CT, 
AMP$GET_N£XT» and AMP$GET_PARTIAL procedure calls. Trans fer^ount 
may also be returned by AMP$FETCH_ACC£SS_INFORHATION. 

For files with record_type of AMCSVARIABLE transf er_coun t is the 
number of 8-bit bytes transferred with this procedure call. 

For •'INTERCHANGE*' files, with record_tyoe AMC$UN0EFIME0, 
trans fer_count is defined as the number of 8-blt bytes moved by the 

COMPANY PRIVATE 



COC SOFTWARE EHGINEERING SYSTEH 

ERS for SIHULiTEO HOS/VE PROGRAM INTERFACES 



2-22 

01/25/80 



2,0 SIHULATEO NOS/VE I/O IWTERFACES 
2,3,i2 TRANSFE RECOUNT 



current call. 



2,3.13 NAIT 

The wait parameter is an ordinal which is input for an 
procedure caM • The parameter is not i'tterrogated by the 

NOS/VE I/O system as OSCSWAIT is always assumed. 



AHPSRE^IND 
SIMUL^^TED 



2.3. If* MORKING_STORAGE_AR£A 

Morking_storage_area is a pointer to the users data buffer. It 
is reconifflended that the pointer be generated through the use of the 
"#LOC" function. 



2.3.15 W0RKIH6.ST0RAGE.LENGTH 

WorKing_storage_l ength specifies the users buffer size in b/tes 
for AMP$GET_OIRECT, AMP$GET_NEXT, and AHP$GET_PARTIAt procedure 
calls. It specifies the number of bytes to transfer for 

AMP$PUT_DIRECT, AMPSPUT^NEXT^ and AMP$PUT_PARTIAt procedure calls. 
It is recommended that the size be generated through the use of the 
"#SIZE*' function for all AHP$GET_ type procedure calls. 



For the 
multiple of 



interchange*" file format this parameter 
8» else an error will be returned* 



must b3 
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2,0 SIHULATEO NOS/VE I/O INTERFACES 

Z.I* USING THE SIHULATEO NOS/VE I/O SYSTEM 



2*** USING THE SIHULATEO I^OS/¥E I/O SYSTEH 



Zmh.l SOURCE CODE FOR THE SIHULATEO NOS/VE I/O SYSTEH 



SIHULATEO NOS/VE I/O 
system when both are ryrsnin 
not periBit duplicate proce 
XDCL in CY3IL or ALIAS In t 
NOS/VE I/O names have th 
s i gn I • 

For examples When us In 
procedure AHPSOPENt use th 
180 SIHULATOR, use the name 
on the SIHULATOR then t 
SIHULATEO NOS/VE I/O. 



must coexi 
g on the SI 
dure names 
he CPU asse 
€ '•$•• Idol I 

g the NOS 
e name AHP$ 

AHP#OPEN. 
he NOS/VE 



St with the NOS/VE operating 
HULA TOR. Since NOS/VE does 
that are declared external via 
mbiy language^ the SIHULATEO 
ar sign) changed to '*§" (p3und 

/170 INTERFACE to call the 

OPEN! but ^hQn using the CfBER 

If the name AHPSOPEN is jsed 

orocedure is called and not 



2. h. 1. 2 iias,iyaiiii^,soiiE££^aPf.^iM^i^iiQOiiL£ 



To interface the SIHU 
program must include the 
procedure is contained i 
user may include in 
♦CALL statements. Each 
(♦CALLO statements to 
definitions. Common dec 
the NOS/170 INTERFACE 
table gives the name of 
the defined procedure. 



LATEO NOS/VE I/O system^ the user's CfSIL 

relevant procedure call declarations. £ach 

n a separate common deck of code which the 

the source program module through the us? of 

procedure contains the necessary nested ::all 

include any required •"type" or "constant" 

k names are the same regardless of whether 

or the SIHULATOR are used. The follo<«ing 

each procedure common deck and identifies 
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2*^,1«2 INCLUDING SOURCE COOE IN A HOOULE 



TABLE of the SIMULATED NOS/VE I/O systei COMMON DECKS 



AMXCLSE 
AMXFTCH 
AMXFNFO 
AMXFILE 
AMXGFAT 
AMXGETD 
AMXGETN 
AMXGETP 
AMXOPEN 
AHXPUTO 
AMXPUTN 
AMXPUTP 
AMXREWO 
AMXSEEK 
AMXSTOR 



AMPS CLOSE 

AMPSFETCH 

AMP$FETCH_AGC£SS.INFORMATION 

AMPSFILE 

AMP$GET_FILE_ATTRI8UTES 

AMP$GET_OIRECT 

AMP$6ET_NEXT 

AMP$GET_PARTIAL 

AMPSOPEN 

A MP$PU INDIRECT 

AMP$PUT_NEXT 

AMP$PUT_PARTIAL 

AMPS REMIND 

AMPSSEEK^OIRECT 

AMPSSTORE 



2 • ^ . 1 . 3 SIMULATED NOS/VE I/O COMMON DECKS 

SIMULATED NOS/VE I/O cofflwon decks are found on the "CYBIOMN" 

source program library. SES.GENCOMP ni\i find the required cormon 1 

decks when the **CY8ICMN" keyword is part of the SES procedure call. I 

Remember that these common decks have AHP# procedure names. ? 

2.^-l.^ N0S/i70 INTERFACE COMMON DECKS J 

The NOS/170 INTERFACE requires a different set of common dacks i 

than the SIMULATED NOS/VE I/O interface. These comiaon decks na^e J 

the same name as their SIMULATED NOS/VE I/O counterparts but are I 

found on the '•CYBCCMN*' library. These common decks have the ^ MPS I 

procedure names. They may be obtained by using the "CYBCIiMN" \ 

keyword on the SES.GENCOMP statement, i 



2*i*.Z OBJECT PROGRAM LINKAGE TO AMPS 



2 . if . 2 . 1 SIMULATED NOS/VE I/O OBJECT PROGRAM LIBRARY 

The NOS/VE object program is linked and prepared for loading i-^to 
the CYBER 189 SIMULATOR by the Virtual Environment Linker and the 
Checkpoint File GENerator. These programs are normally executed by 
the command SES.GENCPF. This is not the only method to prepare 
programs for input to the SIMULATOR. The user is directed to the 
ERS documents for the Virtual Environment Linker (VELINK) and the 
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2.^,2«1 SIMULATED NOS/VE I/O OBJECT PROGRAM LIBRARY 



Virtual Envirorment Generator IVEGEN) for additional in f oriaation. 

The ob|ect tlsie programs for SIMULATED NOS/VE I/O are founi on 
the "CYBILIB- library. GENCPF has the keyword parameter ••CY8I.IB" 
to provide access to this I ibrary. 

2.^.2.2 NOS/170 INTERFACE OBJECT PROGRAM LIBRARY 

The NOS/170 INTERFACE object modules may be obtained from the 
"CY8CLI8*" library. The user should Qre^arB the object program for 
execution be creating a NOS/170 "load file*". This process is 
performed by the SES procedure SES.LINK170. LINK170 has the Key«*ord 
"CYBCLIB** available to link CYBIL object time programs. The object 
programs for the NOS/170 INTERFACE are oart of this library. 
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2-5 MM£l£.Xda-£SM0M^MM.J^SIIW6S 



This section lists the contents of each cosiraon deck of sojrce 
code for the NOS/VE system which is supported by the SIMULATED I 
NOS/VE I/O system. I 

2.5.1 PROCEDURE COMMON DECKS J 

These cowfflon decks must be Included by the user in order to :all J 
the siBiulatad procedure* I 

2.5. 1.1 AMXQLSE {AMPSCLOSEI 

C 

C The purpose of this request is to terminate file access. If the! 

C f i I e_disposi tion is amc$task_l ocal » the file is returned to tha systam«> 

C If the f ile_disposit ion is arecSJ ob_global * any modified data ii merooryJ 

C is flushed to the assigned device. Any outstanding no_wait physlcal> 

C accesses are at lowed to complete before control returns to the caMer> 

C of this request. 1 

C This request is optional. Task termination performs a close an all files! 

C opened by the task.! 

C If the preceding operation on the file was an output and the label_type> 

C is amc$tabel led^ a standard ANSI EOF label group is written. If the! 

C label_type is amcSunI abel led and the file is assigned to a ta^i device«J 

C two tapemarks are written. > 

C If a label _exit_procedure has been specified* control will bs passed! 

C to this procedure whenever a standard ANSI label matching the I abel _opt ions! 

C attribute is processed.! 

C If the file has been routed with the defer option* the file ^ili be routed! 

C by ampSclose if the f i le_disposition is amc$task_l ocaM otherwise, the! 

C file is routed at the RETURN command/request or fob termination.! 

C The f il e_i dentif ier established by a preceding ampSopen request is! 

C invalidated by this request. 

C 

C AMPSCLOSE fFIL£_IDENTIFIER» STATUS) 

C 

C FILE_IDENTIFIERs (input) This parameter specifies the file access 

C identifier established when the file was opened. 

C 

€ 

C STATUS? Coutput) This parameter specifies the request status 

C! 

C ♦ amxclse! 

PROCEDURE IXREFl amp#close ALIAS •amxclse* C f i I e_i denti f lers 
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2.5.1.1 AMXCLSE <AHP$CtOSE) 

aiBt $ f i I e_l den 1 1 f ler I 
VAR statuss ostSstatus)? 

*cal Ic amctglob 
♦cal I c osdstat 

2.5.1.2 lLMXFIL£^AM£l£IL£i 

C 

C The purpose of this request is to describe a file prior to a: cess* 

C The description of the fife consists 3f one or more file attributes. 

C Each file attribute has an appropriate default value depending upon 

C the type of file to be accessed. File attributes are preserved with 

C the file. Therefore* file attributes need only be specified wh» n the 

€ file is created* and then only if the default is not desired. 

C If the user has control permission on an existing file, this request 

C may be used to permanently change the file's attributes. The ciange 

C will not take place until the file is successfully opened. 

C If the user does not have control permission on an existing file* 

€ this request may be used to override the file's attributes until the 

C task terminates. These changes are not preserved with the file. 

C Repeated ampffile requests may be made against the same local file. 

£ The requests are additive. When two requests redefine the same 

C attribute* the most recent definition is used. 

C File attributes defined on a preceding FILE command will override 

C those specified on this request. However* the task can prevent 

C FILE command processing by quoting tha f i I e_command_processing 

C attribute on this request. 

C 

C AMPSFILE CLOCAL_FILE_NAM£* FILE^ATTRIBUTES, STATUS) 

C 

C L0CAL_FILE_NAME8 (input) This Parameter specifies the name of the local 

C file for which attribute values are being supplied. 

C 

C FILE_ATTRI8UTESs C input) This parameter specifies one or more file 

C attribute-value pairs. 

C 

C STATUSS (output) This parameter specifies the request status. 

C 

C ♦ amxfilel 

PROCEDURE CXREF1 amp#file ALIAS * amxf i I e* ( local.f ii e_narae3 
amt$ f il e_name* 

f i I e_at tributes: amt$ f i I e_at tributes* 
VAR status: ostSstatus) ; 
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2.0 SIHUtATEO NOS/VE I/O INTERFACES 
2«5.1,2 AMXFILE <AMP$FIt£l 



*cal Ic aredf att 
*cal Ic amdgiob 
*cal Ic affidnaae 
*cal I c osdstat 

2.5.1,3 Mxm£0^MEtEO.£ja , ACCgss^IJi£QSIiAIIQHI 

C 

C The purpose of this reqyest is to retrieve the value of one yr 

C more Iteias of file inforiaation subsequent to the file being opened. 

C 

C AHP$FETCH_ACCESS_INFORHATI0N (FItE_IOENT IFIER, ACCESS_INFORMATION, 

C STATUS) 

C 

C FILE_IOENTIFIERs (input I This parameter specifies the file access 

C identi f ier estabi ished when the file 4«as opened. 

C 

C ACCESS^INFORMATIONS { input-output I This parameter specifies on2 or more 

C items of file access inforraatiom to be returned. 

€ 

C STATUS s C out put) This parameter specifies the request status* 

C 

€ ♦ amxfnfoJ 

PROCEDURE tXREFl arep# f etch_access_inf ormat ion ALIAS •amxfnfo" 
C f i 1 evident! f iers anitSf ile_identi tier? 
VAR access_in format iont aratSaccess^inf oriaat ion? 
VAR status? ostSstatus)* 

♦cal Ic affldfnfo 
♦cal I c atndglob 
♦cal 1 c osdstat 

2.5.1.^ AHXFTCH TAHPSFETCH) 

C 

C The purpose of this request is to retrieve the value of one ir 

t more file attributes subsequent to the file being opened. This 

C request is similar to arap$get_f i le_attributes except the f ile_i dent if ier 

C is used to distinguish frora among what laay be several instances 

C of open of the same file. 

£ 

C AMPSFETCH IFILE^IDENTIFIER, FILE^ATTRIBUTES, STATUS) 

C 

C FILE_I0ENTIFIER5 (input) This parameter specifies the file accass 
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2.5,1,«> AMXFTCH (AMPSFETCH) 

C identifier estabJished when the file «as ODened, 

C 

C FILE_ATTRI8UTES8 I input-outpytJ This parameter specifies one o" more 

C attri bytes whose \/alye is sought* 

£ 

C STATUS? (output) |"his paraineter specifies the request status, 

C 

C ♦ amxftchl 

PROCEDURE CXREF3 aropifetch ALIAS 'a^xftch' ( f i I evident i fi ers 

amt$f ile_identif ier; 

VAR f iSe_attributess amtSfil e_3t tributes! 

VAR statuss ostSstatus) I 
*cal f c aredf att 
♦cal Ic amdglob 
♦cal I c osdstat 

2.5. 1,5 AMXGETD lAMPSGET DIRECT) 

£ 

C The purpose of this request is to retrieve a record from a file openedl 

£ with amcSrecord access and f i le^organizat ion of amcSby te^addressab I e,3 

£ The location of the record is specified by the byte__address parameter*} 

£ The record is raoved from buffers maintained by the access method to the> 

£ user's worKlng_storage_area. Data movement always begins at a *ecord J 

£ boundary and continues until either the end of the record or tie end of> 

£ the worKing_storage_area is encounteredf whichever occurs first. If the> 

£ entire record is not moved, an abnormal STATUS will be returned. In thlsl 

£ events subsequent arap$get_part iai requests may be issued to obtain thel^ 

£ remainder of the record. > 

£ 

£ AMP$GET_OIR£CT (FILE_IOENTIFI£R, WORKING_STORAG£_AREA, 

£ WORKING_STORAGE_LENGTH, RECORD^LENGTH, TRANSFE RECOUNT, 

£ 8YTE_A0DRESS, FILE^POSITION, STATUS) 

£ 

£ FILE_IDENTIFIERs (input) This parameter specifies the file accjss 

£ identifier established when the file was opened. 

£ 

£ WORKING_STORAGE_AREAs (input) This parameter specifies the usee's working 

£ storage area. 

£ 

£ WORKING_STORAGE_LENGTHS (input) This parameter specifies the maximum 

£ number of bytes to be moved into the working storage area. The 

£ value is typically set at the maximum record size defined for the 

£ file. 

£ 
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C RECORD_LENGTHi Coytpytl This parameter specifies the actual sije of the 

€ record as it exists orn the file. 

C 

C TRANSFER_COljNTi (output) This parameter specifies the number of bytes 

C mowfed to the user's buffer. 

C 

C BYTE_AD0RESS8 C input) This parameter specifies the file byte address 

C of the record to be retrieved* 

C 

C FILE_PGSITI0N8 (output) This parameter specifies the position if the 

C file following this request. It can be used to recognize end 

£ of record status. 

C 

€ STATUSs (output) This parameter specifies the request status* 

C 

C * afnxgetd> 

PROCEDURE tXREFl aiBP#get_direc t ALIAS *araxgetd* ( f il evident if i2 r? 
aratSf iie_identif ier? 
working_storage_areas "cell; 

w or king_storage_ lengths amt$ work ing_storage_ length* 
VAR record_lengths aiBt$»ax_record_length? 
VAR trans fer_counts amt$transf er^count ; 
by te_address« amtsf i le_byte_address; 
VAR fi! expositions arot$ f i re_posi tion; 
VAR statuss ostSstatus) ? 

*cal Ic amdglob 
*ca! Ic osdstat 

2.5*1.6 AHXGETN (AHP$GET NEXT) 

C 

£ The purpose of this request is to retrieve the next record f^om a> 

£ file opened with access_ievel of amcSrecord. The location of tie > 

£ record is the current byte address of the file.> 

£ This request may be issued regardless of the f i I e_organ izati3n.> 

£ The record is moved from buffers maintained by the access method to the> 

£ user's working_storage_area. Data movement always begins at a *acord > 

£ boundary and continues until either the end of the record or tie end of> 

£ the working_storage_area is encountered* whichever occurs first. If the! 

£ entire record is not moved* an abnormal STATUS will be returned. In this> 

£ event* subsequent amp$get_part iai requests may be issued to obtain the! 

£ remainder of the record. > 

£ 

£ AMP$GET_N£XT (FILE^IOENT IFIER, WORKING^STORAGE.AREA , 
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€ WORKING_STORAGE_LENGTH, RECORO^LEMGTH, TRAMSFE RECOUNT, 

C 8YTE_A0DR£SS, FILE^POSITION, STATUS) 

C 

C FIL£_I0£NTIFI£R8 C input) This parameter specifies the file accsss 

C identifier established when the file was opened* 

C 

C W0RKING_ST0RAGE_AREA8 C input) This parameter specifies the usee's worKing 

C storage area. 

C 

C WORKING_ST0RAGE_L£NGTHS C input ) This parameter specifies the 

€ maxiwuiB number of bytes to be moved into the working storage area. 

C The value is typically set at the maximum record size defined for 

C the file. 

€ 

C REC0R0_L£NGTHS Coutput) This parameter specifies the actual si?e of 

C the record as it exists on the file. 

C 

C TRANSFER,. COUNTS (output! This parameter indicates to the user f he 

C number of bytes moved to the usar*s working storage area. 

C 

C BYTE_AOORESSS (output) This parameter specifies the file byte address 

C associated with the record retrieved. This value is on I / returned 

C for files on mass storage devices. 

€ 

C FIL£_P0SITI0Ns (output) This parameter specifies fhe position of the file 

C following this request. It can be used to recognize end of record 

€ status. 

C 

C STATUS! (output) This parameter specifies the request status. 

C 

C ♦ amxgetn> 

PROCEDURE IXREF3 arap#get_next ALIAS •amxgetn" ( fi I evident if ieri 
amt$f ile_i denti f ier? 
working_storage_area$ "cell? 

working_st orage^l engths amt$working_st orage_l ength? 
VAR record_lengtht arat$max_record_length; 
VAR transf er^counts amt$transf er_count ? 
VAR byte_addresss amt$f ile_byte_address? 
VAR fil exposition? amt$ f i le^position? 
VAR statuss ostSstatus) I 

♦cal I c amdglob 
*cal I c osdstat 
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2.5.1.7 AHXGETP C AMP$GET_PARTIAt) 

2.5.1.7 IMEiOlE^lMEiaOL-BiSIiaLl 

C 

C The purpose of this request is to ratrieve the next portion >f a J 

C record from the current location of a file opened with ajiicSrecjrd access. > 

C Repeated requests may be required to move the »ihole record.l 

C The data is moved from buffers maintained by the access meth>d to the> 

C user's working_storage_area.> 

C 

C AMP$GET_PARTIAL CFILE^IOENTIFIER, WORKING_STORAG£_AREA, 

C WORKING_STORAGE_L£NGTH, RECORD.LENGTH, TRANSFER_COUNT» 

C SYTE^AODRESS, FltE^POSITION, SKIP^OPTIGN, STATUS* 

C 

<^ FILE_IOENTIFIERs < input I This oarametar specifies the file access 

C identifier established when the file was opened. 

£ 

€ WORKING_STORAG£_AREAS (input! This parameter specifies the usee's working 

C storage area. 

C 

C WORKING_STORAGE_t£NGTMS C input) This parameter specifies the njmber 

C of bytes to be moved into the working storage area. 

C 

C RECORO_LENGTHS (output) This parameter will specify the actual size of 

C the record as it exists on the file when the last data of the 

C record is transferred. It will be cumulative for a serlas of 

C partial record operations wlthi?^ a record. 

C 

£ TRANSFER_COUNTs (output) This parameter specifies the number 

£ of bytes moved to the user*s working storage area. 

£ 

£ BYTE_ADORESSt (output) This parameter specifies the file byte address 

£ of the beginning of the record being processed as a series of 

£ partial records. This value is only returned for files «(hich resida> 

£ on mass storage devices. It is not updated tp point 

£ to the beginning of each partial transfer. 

£ 

£ FILE_P0SITI0N: (output) This parameter specifies the position of the file 

£ following this request. It can be used to recognize end of record 

£ status. 

£ 

£ SKIP_OPTION« (input) This parameter soeclfies whether to advance to fhQ 

£ beginning of the next record before transferring datal 

£ (amc$skip_to_eor) or to start the transfer at the current position! 

£ (amc$no_skip) • If the current position is beginning of racordl 

£ then this option has no effect.! 

£ 

£ 

£ STATUSs (output) This parameter specifies the request status. 
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C * amxgetpl 

PROCEDURE tXREFI arop#get_partial ALIAS •amxgetp* C fH evident if i ers 
arwtSfi I evident i f ier? 
worKing_storage_areas ""eel I ; 

working_storage_r8ngths aratS work ingest orage_lengtti* 
VAR pecord_length3 amtSfnax^record^lengthl 
VAR trans! ep_counts aratStransf er_count ; 
VAR byte_address8 amt$f II e^byte^addressl 
VAR fil expositions aratS f i le_posit ion* 
sKip_optionS aratSskip^option? 
VAR status? ostSstatysl I 

♦cat I c aradgl ob 
*cal I c osdstat 

2 . 5 , 1 • 8 AMSEi JL.iiliei&£I JEILE^illgiaU T £S I 

C 

C The purpose of this request is to allow a user to interrogate 

C file attributes maintained by the access method for a local fil le» 

C File attributes may be defined for a file in the foH owing ways? 

€ • FILE co!»ffland 

C • anpSfile request 

€ • access method supplied default 

C • ampSstore request 

O 

C File attributes* once established* are preserved with the file. 

C These become the default whenever the file is accessed* Prese""ved 

C attributes may be redefined as mentioned above- 

C This request returns file attribute values which result frjm the 

C precedence relationships of FILE command* amp$file request* ^riiSBryed 

C attributes and access method defaults. 

C This request is intended to be used prior to issuing an am^Sfile 

C or amp$open request. Used in this manner* this request allows an 

C application to determine whether a file exists* and if it does exist* 

C whether the known file attributes are consistent with the processing 

C to fol low. 

C This request may be issued at any time and will return the f i I e_ 

C attributes which would be in effect if the file were to be opeied 

€ immediately following this request* 

C If the file is not local* the f i le_attr Ibutes parameter is not 

C modified by this request. 

C 

C AMP$GET_FILE.ATTRI8UTES (LOCAL_FILE_NAME* FILE^ATTRIBUTES , 

C LOCAL^FILE* EXISTING^F ILE* CONTA INS^OATA* STATUS) 
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C 

C L0CAL_FILE_NAH£8 < input) This pararae tar speci f ies the narae of the local 

C file whose attribute values are sought. 

C 

C FIL£_ATTRI8UTESs C Input -output ) This oararoeter specifies one o** more 

C file attributes whose value is sought* 

C 

C LOCAL_FItES foutputi This pararneter specifies whether fh^ file is 

C local to the task* A file is said to be local if a preceding commandif 

£ or request* has been issued naming the file* 

C 

C EXISTING_FILEs (output) This parameter specifies whether the l3Cai file 

C has ever been opened* 

C 

£ G0NTAINS_DATA8 Coutput) This Pararaetef* specifies whether an existing 

£ file has data Cnon__null in length). 

£ 

£ STATUS8 (output) This parameter specifies the request status* 

£ 

£ ♦ amxgfatl 

PROCEDURE IXREFl arap#ge t_f i le^attributes ALIAS "amxgfaf (I ocal _f i I e_names 
amt$f ile_narae? 

VAR f lle_attributess arotSf il e^attributes? 
VAR locaJ_files boolean? 
VAR existing_f i I es boolean? 
VAR contains_datas boolean* 
VAR status? ost$status)1 

*cal I c arodf att 

*cal I c are dg lob 

*cal I c aradnafne 

♦cal I c osdstat 

2.5*1*9 AHXQPEN (AHPSOPEN) 

£ The purpose of this request is to prepare a local file for a:cess*> 

tl 

£ If the file exists and is permanent* this request must be preceded! 

£ by an ATTACH or GET command or request to make the file local to the i ob* > 

£J 

£ File Attributessj 

£> 

£ Requests such as ampSfile and amp$get_f i I e_attributes are optional! 

£ prior to the call to ampSopen* File attributes defined at the time a file> 

£ is created are preserved with the file* these become the default when the> 
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C file Is openedf unless overridden. The FILE command and the ara3$file> 

C request may be used to override the default file attributes. At open* 

C the attributes quoted on the FILE com^aand will prevail over those named! 

C on an amoSfile request whose attributes will in turn prevail o«rer those! 

C preserved with the file. Use of the FILE command attributes ma/ bel 

C controlled with the ampSfile request.} 

C> 

C Label Processings! 

C> 

€ Standard ANSI labels are verified at open. If the user has soecified a> 

C label _exit_procedure with the amp$fila request* control will ba passed! 

C to this procedure mhene^er a label matching the label_opt ions attribute! 

C is found.! 

C! 

€ Instances of file?! 

C! 

C An access method request which has I ocai_f H e^name as the fi^st formal! 

C parameter may be issued regardless of whether the file is open. All other! 

C requests may only be issued after a successful open. Ampiopen returns! 

€ a FILE_IOENTIFIER which identifies an instances of a file. Ea: h! 

C open of a file creates a unique instance of a file which is gi\/en! 

C a unique f il evident! fier.! 

C Each instance of a file is described by separate tables to al low! 

C independent* parallel access to multiple instances of the file by a task^! 

C by multiple tasks in the same |ob» or by tasks in different io3S.! 

C Only permanent files may be shared among jobs in the system. Any local! 

C file may be shared by tasks in the same job.! 

C Restrictions are placed upon a task opening the same file mo^e than once! 

C without an intervening close. These restrictions depend upon the! 

C device_class assigned to the file and the access_mode requested.! 

C Tape files cannot be multiply opened. Oisk and interactive files! 

C may be multiply opened.! 

C Each instance of a multiply opened disk file shares a common mass! 

C storage allocation. However, each accessor has a unique f 11 evident i fier! 

C with which a unique location within the file ( curren t_by te^address,! 

C f i I exposition, vol ume_number, etc.) is maintained by the access method*! 

C Each instance of open of the same file must quote compatible^ 

C access_level , record_type, and block_type.! 

C Open verifies that the access_level quoted by one instance of open is! 

€ compatible with previous instances of open for the file in the same }ob.! 

C Record_access and segment_access may occur in parallel on the same file,! 

C if the two instances of open are in different tasks. Phys ical_3ccess can! 

C coexist with neither record_access nor segment__access.! 

C Open verifies that the record_type quoted by one instance of open is! 

C compatible with previous instances of open in the same |ob. An instance of! 

C open with access_mode of only pfcSread is allowed to specify a^cS undefined! 

C regardless of previous record__type specification. No other com3 inat ions! 

C of record_type may coexist.! 
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C Open also verifies tl^at the biock_type quoted by one instanc* of open ls> 

C compatible with previous instances of open in the same |ob« An instance! 

C of open with access_raode of only pfcSread access is altoned to specify al 

C block^type other than the prevailing 3ne»> 

C Only permanent files reay be shared among fobs In the system. Anyl 

C local file may be shared by tasks in the same iob»J 

C> 

C File_sharings> 

O 

C A task raay insulate itself from conflict caused by other tasts in thai 

C same fob sharing ff\B local file by using the J ob_l ocal_share_m3 de attribute! 

£ of the ampSfile request to restrict shared usage of the file, J 

C> 

€ Segment_accesss > 

O 

C If segment access is quoted on an open request* the task must obtain a> 

C pointer to the segment in order to access it* See the amp$get_segment_> 

C pointer request.! 

O 

C Open_positioning$> 

O 

< A task may use the open_posi t ion attribute of the ampsfilej 

C request to cause the file to be positioned by amp$open to 801, > 

C EOI or a partition boundary.! 

C! 

C FHe_disposition*! 

€! 

C Files opened by a task are automatically closed at its termination. Use of! 

C the ampSclose request is optional*! 

C Prior to open» the f i le_disposit ion attribute of the ampSfila request! 

C may be used to specify when file disposition is to occur. A! 

C f i le_disposi t ion of amc ltask_l oca! will cause disposition to o::cur! 

C at amp$close or task termination. A f il e_disposit ion of! 

C amc$}ob_global will delay the disposition of the file until | 03 ! 

C termination. The RETURN command/request causes immediate! 

< disposition and overrides the f i le_disposit ion selected.! 
C 

C AMP$OPEN aOCAL^FILE^NAMEt ACCESS^LEVEL , FILE.IDENT IFIER, STATUS) 

C 

C L0CAL_FILE_NAME5 < input) This parameter specifies the name of the local! 

C file to be opened for access.! 

C 

€ ACCESS_LEVEL8 (input) This parameter specifies the means by which the! 

C file will be accessed.! 

C 

C FILE_IDENTIFIERs (output) This parameter specifies the file ac:ess! 

C identifier which is assigned to this instance of open of the local! 

€ file.! 
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C 

€ STATUS? Couputl This parameter specifies the request status,! 

C 

C ♦ amxopenl 

PROCEDURE IXREF] ampfopen ALIAS •amxopen* < local _f il e_names 
afiit$ f He_najB€; 

ace ess_ level t amtSaccess^level 1 
VAR til evident if iers ara til i J evident i fieri 
VAR status? ostSstatus) I 

*cal Ic amdglob 
♦cai I c aradname 
♦cal I c aradopen 
*cai I c osdstat 

2.5.1.10 M^li IH-l A MMEill^aigOIIl 

I 

C The purpose of this request is to transfer a record from ^hQ user'sl 

C working storage area to a file opened with amcSrecord access_l3 ve I > 

C and arac$byte_addressable f i!e_organization.> 

C If the record_type is ajiic$ansi_f ixedi» the record is padding^: haracter> 

C filled^ if necessary.! 

C This request will establish a new end of information (EOI) if the sural 

C of byte_address and working_storage_length exceeds thB current EOI.J 

C It is the user's responsibility to ensure that a record being 

€ replaced is the same length as the or^iginai. 

C 

C AMP$PUT_OIR£CT CFItE^IDENTIFIERt WORKING^SfORAGE^AREA, 

€ WORKING_STORAGE_LENGTH, BYTE^AODRESS, STATUS) 

£ 

C FIL£_IOENTIFIERs < input) This parameter specifies the file accass 

C identifier established when ^hQ file was opened. 

C 

C W0RKING_ST0RAGE_AREA: ! input) This parameter specifies the use-"s 

C working storage area that contains the record to be transferred. 

€ 

C W0RKING_ST0RAGE_L£NGTH: (input) This oarameter specifies the nimber 

C of bytes to be transferred. 

C 

C BYTE_ADDR£SSS (input) This parameter specifies the file byte address 

C of where the record is to be placed in the file. 

C 

C STATUS? (output) This parameter specifies the request status. 

C 
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€ * araxputdl 

PROCEDURE CXREF1 a!iip#put_cllrect ALIAS •amxpytd" f f i le^ident If la ri 
aratSf II evident! fieri 
working_storage_area8 "cell? 

work ingest orage^lengths ai«t$workirig_storage_length| 
byte^addresss amt$f I le_byte_address* 
VAR statyss ostSstatus) * 

*cal I c amdglob 
*cal 1 c osdstat 

2.5.1.11 AHXPyfN (,A^e$PMT NEXT) 

C 

C The purpose of this request is to transfer a record frotn the user's 

C working storage area to the "next" location in a file opened with> 

C arocSrecord access_level • J 

C If the record_type is a»Bc$ansi_f ixedt the record is padding^: haracter> 

C fiiiedy if necessary. > 

€ This request will unconditionally establish end of information (EOI)l 

€ when issued on a file opened with amcSsequential f it e^orqanizat ion.l 

CI 

C AMP$PUT_NEXT <FILE_IOENT IFIER, WORKING^STORAGE^AREA , 

C MORKING_STORAGE_LENGTH, BYTE^AODRESS, STATUS) 

C 

C FILE_IDENTIFIERs (input) This parameter specifies the file access 

C identifier established when the file was opened. 

C 

C WORKING_STORAGE_AREAS Cinput) This parameter specifies fh^ use-Vs working 

C storage area that contains the data to be transferred. 

C 

C WORKING_STORAGE_LENGTH: (input) This aarameter specifies the njmber 

C of bytes to be transferred. 

C 

C BYTE_ADDRESS: (output) This parameter specifies the file byte address 

C estabi Ished for the beginning of the record. This address 

C may be used on future requests to randomly access the record. 

C This value is only returned for files on mass storage devices. 

C 

C STATUS: (output) This parameter specifies the request status. 

C 

C * amxputn> 

PROCEDURE iXREFl arop#put_next ALIAS 'araxputn* (f i I e_i dent if ier? 
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amt$file_i denti fieri 

working^storage^areas ^cel t * 

work ingest orage_ I ersgtlis anitS work ingest orage^length? 

VAR byte_adclresss aratSf i J e_byte_address; 

VAR statyss ostSstatus) ? 

*cal Ic amdglob 
*^caMc osdstat 

2.5.1,12 MX£UI£>lAMP$ey,I ,e AiIIA.LI 

c 

C The purpose of this request is to transfer a partial record f rooj the 

C user's working storage area to the "next** location in a file o3ened> 

C with aiBC$record access_level •> 

C This request may not be issued if the record_type is aj5C$ansi _\rariabiel 

C or amc$ansi_f ixed« > 

€ This request is provided for exceedingly long records which -louldj 

C otherwise require an irapractical working storage length.l 

C The first portion of the record is supplied with the afflcSstartl 

C term_option« The amcSstart way be issued when the f i I e_positi3 i> 

C is a!ac$niid_record to terminate a previous record while starting a> 

C new one. This request sets the f i le_posit ion to amc$mid_record •> 

C Intermediate portions of the record are transferred with a t2rm_option> 

C of an!C$continue» This ter»_optlon raay only be issued y^hen the f i I e_posi t ion> 

C is arac$roid_record. Fi 1 exposition remains afBC$iRid_record. J 

C The final portion of the record is supplied with amcSterroina te> 

C term_option» J 

C This term^option may be issued when the f i I e_posit ion is amcSmi d_record or} 

C anic$eor« In the latter casey a full record is being supplied, fhis request! 

C results in an amcSeor f i I e_pos it ion.> 

C> 

C AMP$PUT_PARTIAL (FIL£_IDENTIFIER» WORK INGEST ORA GE_A REA, 

{. WORKING„STORAGE_LENGTH, BfTE.ADORESS, T£RM_OPTION, STAfUSJ 

C 

C FILE_IOENTIFIERs < input I This parameter specifies the file acca ss 

€ identifier established when the file was ooened. 

C 

C WORKING_STORAGE_AREAs (input) This parameter specifies the usee's working 

C storage area that contains the data to be transferred. 

C 

C W0RKING_ST0RAGE_LENGTH: {input ) This oarameter specifies the njmber 

€ of bytes to be transferred. 

C 

C BYTE_ADDRESS8 CoutputJ This parameter specifies the byte address 

C established for the beginning of the record. This address 

€ may be used on future requests to randomly access the re:ord. 

COMPANY PRIVAfE 



2-^0 
CDC SOFTWARE EHGIHEERING SYSTEM 

01/25/' 80 
ERS for SIHULATEO MOS/VE PROGRAH INTERFACES 

2.0 SIHULATEO NOS/VE I/O INTERFACES 
2.5.1.12 AMXPUTP (AHPSPUT^PARTIALJ 

C This value is only refyrned for files on mass storage devices* 

C 

€ TERH_OPTION$ <inpytl This parameter specifies which portion of the record! 

€ is being supplied.! 

C 

C STATUSs (outputl This parameter specifies the request status. 

C 

t ♦ amxputpl 

PROCEDURE tXREFI ampfpu t.partial ALIAS •amxputp* ( f i I e^identif i ers 
amt$f ile^identif ier; 
worKing_storage_areas ""cell? 

working_st orage_l engt hs amt$ work ingest orage^l ength | 
VAR byte_addresss arotSf iie^byte^addressl 
t erni^opt i on s aw t $terra_opt ion * 
VAR status? ost$status)| 

♦cal I c amdgl ob 
*cal I c osdstat 

2.5.1.13 MiismL-iMMHEH imi 

C 

C The purpose of this request is to reposition to the beginning of> 

C information of the file* This request has meaning only for filas opened! 

C with aiBcSrecord or atncSphysica I access^! evei •> 

C Any reodified data residing in memory is flushed to the current volume.! 

C Any outstanding no_wait requests are completed before the repositioning! 

C is attempted.! 

C If the label_typ€ is amcSlabeiled a'ld the preceding operatioi was anJ 

C output* a standard ANSI EOF label group is written* If the HDRl label! 

C corresponding to this file is not on the current volume* the cjrrent! 

C volume is dismounted and the volume containing the beginning of the file! 

C is mounted* The file is positioned beyond the verified HOR lab»l group.! 

C If the label^type is amc$unl abel i ed or amc$non_standard_label I ed* the! 

C current volume is rewound.! 

C If a label _exit_proce dure was specified* control will be passed to this! 

C procedure if labels matching the I abel ^options attribute sre ei countered! 

C during this process.! 

C! 

C AHPSREWIND (FILE.IOENTIF lER* WAIT* STATUS) 

€ 

C FILE^IOENTIFIERs (input) This parameter specifies the file accsss 

C identifier established when the file was opened. 

£ 

C WAITS (input) This parameter specifies the actior^ to be taken 
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€ if the rewind can not be completed without causing 

C a physical I/O operation to be submitted. 

C waits Don't return control until the operation is complete. 

C noiftaits Return control to the user even though the operation 

C may not be complete. The AMP$F£TCH_ACCESS_INF3RHATI0N 

C request may be used to determine the I ast_op_st atus. 

C 

C STATUSs Coutput) This parameter specifies the request status. 

C 

< * araxrewdl 

PROCEDURE CXREFI amp#rewind ALIAS •amxrewd* < f 11 e_identif iers 
amt$file_ldenti fieri 
Naits ost$Mait; 
VAR status? ostSstatusV? 

*cal I c amdglob 
*cal I c osdwnw 
♦cal I c osdstat 

2.5.1.1i* AHXSEEK CAHPSSEEK DIRECT > 

C 

C The purpose of this request is to change the curren t_by te_address of > 

C a file opened with amcSrecord access_level and amcSby te_addres3 abl e> 

C f 1 1 e_organization. This request does nothing to change the physical J 

C position of the mass storage device assigned to the file. This request! 

C is provided to allow the location in the file to be established priori 

C to issuing an amp#get_next or amp#get_partial . Note that the ra quests! 

C such as amp#get_direct and amp#get_partial_direct perform an implicit! 

C seek_direct foi lotted by record movement. 1 

€ 

C AHP$SEEK_OIRECT (FILE^IOENTIFIER, 8YT£_A0DRESS, STATUS) 

C 

C FILE_IDENTIFI£R8 (input) This parameter specifies the file accass 

C identifier established when the file was opened. 

C 

C BYTE_ADDRESS8 Cinput) This parameter specifies the file byte address of 

C the record to be located. 

C 

C STATUSS Coutput) This parameter specifies the request status. 

C 

CamxseeK J 

PROCEDURE CXREFI amp#seek_direct ALIAS "arnxseek" ( f i I e^identif i ers 
amt$ f ile_identif ier; 
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byt€_aclresst aatSf il e_byte_address| 
VAR stafysi ostSstatus) * 

*cai Ic amdgJ Ob 
*cal I c osdstat 

2 . 5 • 1 . 1 5 AMXSTOR CAMPSSTORE? 

C 

C The purpose of this reciyest is to change the value of one or raore 

C file attributes* This request may ofily be issued after the fils has 

C been opened* 

< If this request is issued by a user with control perraission ^n the 

€ file» any stored attributes will be preserved with the file. If the 

C user does not have control permission* fhB supplied attributes will 

C be used to describe the task's access to the file but will be liscarded 

C when the task terminates. 

C 

C AMPSSTORE IFILE^IDENTIFIER, FILE_ATTRI8UTES, STATUS) 

C 

C FILE_IOENTIFIERs < input I This parameter specifies the file access 

C identifier established when the file was opened. 

€ 

C FILE_ATTRI8UTESs Cinput-output ) This parameter specifies one o^ more 

C attributes which are to be preserved with the file. 

C 

C STATUS? Coutput) This parameter specifies the request status* 

C 

€ * amxstorl 

PROCEDURE tXREFJ ampfstore ALIAS •amxstor' ( f i le_i den t i f ier: 
aratSf ile_identif ier? 

VAR f ile_attributes8 amt$store_attributes; 
VAR status? ostSstatus) I 

*cal Ic amdglob 
♦cal I c amdstor 
♦callc osdstat 



2.5.2 NESTED COMMON DECKS 

These common decks defin the data types and constants used b/ NOS/VE. They 
automatically included through nested calls in the procedure comn on decks. 
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2.5.2.1 AMQBH^H 



C ♦ aradblNhl 
CONST 

anjc$fliax_bl ock_header 
aiBC $ffl in__b I ock_he ader 



128 Cbytesl » 
16 Cbytesl ; 



TYPE 

anit$block_header_length = aroc$fflin_bl ock_header •• afBC$raax_bl >ck_header<f 
aiBt$block_h€adep_type = tai8C$tapemark_bl ock» amc$data_b lockl » 
amt$block_status = lai»c$no_error» a?BC$recovered_error» 

a!»c$ynrecovered_errorJ , 
amt$pack_block_header = record 

header_t yoeJ aiit$bl ock_b€ader_typa» 

bl ock_lengths amt$max_bl ock^langth, 

previous_Jength8 aiBt$i»ax_b lock_l ength* 

unused_bit_counts amt$unused_bit_countf 
recend* 
awt$unpack_block_header = record 

header_types aratSbl ock_header_typ2» 

bl ock_tength_as_readS amtSiaax^bl ock^length* 

bl ock_l ength_as_wri ttens ai8t$fnax_bJock_l ength, 

previous^^lengthi ar8t$Biax_block_l eigthf 

unysed_blt_counts arat$unused_bit_coyntt 

block_statuss a(Rt$block_statys» 
recend* 
amt$user_lnfo_l ength = •• lafflc$i!jax_block_beader ~ arocSmin^s I ock_headep> ; 

*cal \c amdglob 

2.5.2,2 AHDFATT 



C * amdfattl 
TYPE 

amt$f ile_attributes = arrayt * 1 of amtSf i t e_attribute, 
amt$f if e_attribute = record 

source Coutputl s amt$attribute_source, 
case key Cinput> s a»t$f 1 1 e_at tribute_keys of 
C One of the foriowlng attributes is output by amp$get_f iJe_attri butes 
C ampSfetch? exactly which one is determined by the case selecto*. The 
C of ampSfile must input one of the foil owing attributes designated by 
C case selector.! 

=aroc$access_raode= 

access_rao de 8 p f t $us age_s e I ec 1 1 oi s t 
=arac$bl ock_header_l ength= 

block_header_lengthS arat$biock_header_l ength» 
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amcSbl ock_type= 

block_typeS aaittblock_type» 
:a«c$charact8r_converslon= 

character__conv€rsions boo! ear* » 
:arac$clear_space= 

clear_spac€8 ostSct ear_f i I e_space, 
: a mc$ err or_exi t_proceclyre= 

error__exlt_prpcedures afBt$error_exit_procedyre» 
arocSerror^opt ions= 

error_optionss amt$error_opt ions^ 
amcSf 1 1 e^c otsm an d_proc ess lng= 

f i I e_c oiara an d_p roc es s i n gs b oo I e ar^ i» 
aracSf i I e_content= 

f ile_content s amtSf i re_content« 
amcSf i le_disposit ion= 

f ile^disposi tions amt$f i le^dlsposit ion» 
amcSf il e_f i«lt= 

file^limlts aratSf i I e_l i»it, 
afflc$f it e_organlzat ion= 

f ile_organizatlons amt$f ile_organizat iont 
:amc$horizontal_print_dens ity= 

horizontal _print_densitys am tShorlzonta Imprint _dens ity, 
amcSinternal _code= 

internal^codes aratSinternal _code» 
amcS job_l oca! _share_raode= 

3ob__l ocai_share_modes pf t$share_se lections* 
■arocS I abe I _eKi t_pr oce dyre= 

\ abe I _ex i t _pr oc edures amt$label_exit _pr ocedur e » 
aiacS I abe I _opt ions = 

iabel_options8 atnt$ label__opt ions» 
aroc$ I abe l_type= 

Iabel_type8 anitSI abel_type» 
:amc$l ine_nuiBber= 

\ ine_n umbers aratst ine^numbert 
:arac$max_b!ock_length= 

roax_bl ock_lengths anjt$roax_bl ock_length» 
:arac$max_record_l ength= 

roax_record_l engths aint$jBax_record_l ength* 
:aroc$i8in_b I ock_l engtli= 

min_bi ock_l engthS ai»t$ii!4n_bl ock_length» 
:arac$mln_record_length= 

itiin_record_l engths a!5t$roin_record_l ength, 
:aroc$open_posi t ion = 

open^positlons amt$open_posi tiof>» 
amc$ov«ncode_proce dure = 

owncode_procedyre8 pmtSprogram^f^ame* 
:atBC$padding_character= 

padding_character: amt$padding_character'» 
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=amcSpage_f or)!}at = 

pag«_formats aPRt$page_f ormat» 
=amc$page_i ength= 

pa^e^i engths amt$page_l ength» 
= arocS pa ge_w i d t h= 

page^widthJ affltSpage_**ldth» 
=amc$preset_valye= 

preset^vaJues amt$preset_val ue* 
=amc$recprd_type= 

record_types a(at$record_typef 
= aB!c$ring_attrlbytes= 

i^irig^attribu tess aret$ring_attrlbutesf 
=afBC$suppress_buf fePinsi= 

suppress_buf ferings boolean^ 
=arac$transf er_un i t = 

transf er^units aretS trans fer_un It » 
=arac$user_info= 

user^infos ai«t$yser_inf o» 
=arac$vertica!_print_d€nsi ty= 

vertical_print_densitys amtSvertic a Imprint _dens ity, 
c as end 
recendl 

♦cal ic aradf lie 
*cal I c psdcf s 
♦caJ Ic pf datrb 
♦cal I c pffidnarae 

2.5.2.3 Am£IL£ 

C ♦ amdfUel 
CONST 

amc$max_ys€P_inf o = 3 2* 

TYPE 

arat$f il e_attrlbyte_keys = (amc$access_mode» amc$brocK_header_ length, 
afnc$blocK_typs, aRic$character_conversion» amc$clear_space» 
amc$error_exi t_procedyret atacSerror^opt ipnsf amcS f 1 1 e_comm3 nd_processlng» 
aiBcSf il e_contentf amc$f i le_disposition, ainc$f i le_l imi t, 
atncSf il e_organlzat iont arocShorizonta I _pr in t_density, amcSii ternai _codef 
arac$3ob_locai_shar€_mode, aiBC$labe1_exi t^procedure, ainc$)a3 el ^options, 
awcSI abel_type, amcSi ine_nymber, amc$iuax_b locK^length, 
amc$max_record_length» amc$roin_block_l ength* amc$!Bin_record_l ength* 
amc$opsn_poslt ipn* amcsowncode^procedyre, afflc$padding_cliara ct er» 
aroc$page_f ormat, aiBCSpage_l ength» amc$page_widtht amcSpres^ t^valuef 
amc$record_typet amc$ring_attribytes, anic$syppress_by f ferii g, 
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aracStransf er_yni t» aiaciuser^info, amcSvert ical_print_denslt y> « 
amt$attribute_sotjrce = CafflC$undef ined_attrlbute, aiRcSaccess^B ethod_defayt t , 

aracSf 1 1 e_comiBand» aiacS f 1 1 e_reqyest» aroc$s tore_reqyest 9 

arBC$prsserved_at tr I bu te J » 
anit$blocK_type = <amc$systero_speci f iedt a)»c$yser_speclf ied) » 
aTOt$error_exit_procedyre = ''procedyre ( f 1 1 e_ldenti f iers 

afflt$fi J evident if ler)» 
amt$error_opt ions = Cafflc$ter!Binate__f il e» amc$drop_record» 

amc$accept_recoPdf aracSter^inate^and^dlsplayt aiac$drop_and_di splay » 

amc$accept_and_display) « 
aratSf il e_content = record 

classs arat$f i I e_cl asSf 

Kinds amt$f ile_kindf 

natyres amtSf i le^natyrs, 
recendf 

affltS f ile_disposi tion = Cainc$task_l oca! » amcSfob^globan * 
arotS f ite_l imit = •• amcSf i le_byte_l irait» 
amt$f ile_organization = CamcSseqyent iai ♦ aiBcSbyte^addressabla , 

aiBCSindex^segyential) ♦ n 

amt$horizontal_print_densi ty = <ainctten_cpi» awcStwel ve^cpi^, 

aiac$thirteen_cpif amc$f i f teen_cpi) « 
arBt$internal_code = (awcfas6» amc$as8f amcSascii* aj!ic$dis3» 3«c$disi+» 

aracSebcdlc* amc$bcd>» 
amt$label_€xit_procedyre = ^procedyre C f 1 le_identi f iera 

amtSfi I evident if ier>» 
arat$labsl_opt ions = set of laracSvoll^ a?!!c$y\/lt arocshdrlf amcBhdr2» 

amcSeovit afflc$eov2» aiscSyhl^ amcSeofl, amc$eof2» amcSytl), 
amt$l abel_type = CaiscSl abei I ed« aiBc$non_standard_i abeH ed» an cSynl abei led) » 
anit$l ine_nyiBber = record 

lengths 1 .• 999, 

locations 1 •• 999t 
recendt 

amt$min_bl ock_i ength = 1 •• amc$raaxlfflyfn_block» 
amt$TBin_record_l ength = •• amc$iiia)ciinym_record, 
amt$padding_character = char, 

arat$page_f oriuat = <arac$continyoys_form, amc$non_cont inyoys_f ^rm) , 
amt$page_l ength = 1 •• 65536, 
arat$page_width = 1 •• 65536, 
amt$preset_valye = integer, 
anit$record_type = (amcSvariable, amcSyndef ined, aracsans i_f ixa d, 

aiac$ansi_spanned, amc$ansi_variabl e) , 
arat$ring_attriby tes = record 

ris ostsring, 

r28 ostSring, 

r3s ost$ring, 
recend, 
amtStransf er_ynit = <amc$t, arocStl, aiiic$t2, aracSt**, amc$t8, 3uc$tl6, 

afnc$t32, arac$t6it, amc$tl28, amc$t256, amc$t512), 
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aiat$user_info = string Camc$ffiax_user_infoJ » 

arat$vertical_print_density = CawcSsi x_l pi » awcSeight_lpi» a«2 $fiine_l pi^ 

arac$t we I ve_l p i ) t 
amtSf He_c lass = <amc$unkno*in_cl ass» aiBcSdata* aiscS I ibrary) » 
afflt$fHe_kind = <amc$unkno«n_kind» amc$apl» awcSbasic^ arac$c3boi, 

aracScybilt a^c$f ortran* aroc$pascal f aracSpii, amcSscI* arocSsyipl* 

arac$cpu_ass€rob I erj » 
amt$ f il e_natyre = CarocSunknoHn^natyref afnc$source» afncSobfectf aiPcSlist) 

*cal I c amdblkh 
♦cat I c amdglob 
♦cal Ic aradopos 
*cal I c OS da ddr 

2.5. 2.^ AMDFNFQ 

C ♦ amdfnfo> 
TYPE 

arat$access_info_keys = (aaicSaccess^l eve! ♦ aB5C$aMocation_ur^if _l ength-» 
amc$block_nuaiberf ante $cyrrent_byte_a ddr ess* amc$cycie_nufijb3r, 
aRic$devlce_cl ass» aBjc$eoi_byte_address, afac$errop_statys* 
anicSf 1 1 exposition* amc$global_f i le^namet an3Ctglobal_share_iaodef 
amc$l ast_operation» aBic$last_op_status, atscStocal _f i \ e^nama 9 
afnc$record_header_l ength» afBcJrecord_J ength* amcSresi dual__5 ki p_count » 
anuc$storag€_cl ass» amc$transfsr_coynt » arocSvoluMe_nutnber) « 
amt$access_in format ion = arrayC * 1 of amtSaccess^info* 
amt$access_info = record 

case key CinputJ s afflt$acc€SS_info_keys of Coutputl 
= afnc$access_.level = 

access_level s amt$access_leve t 9 
=amc$al I ocation_un it_length= 

a I location_yni t_l engths amtSal locat ion_unit_4ength9 
=amc$bl ock_number= 

block_number s amtSb lock_numberf 
=amc$current_byte_address= 

current_by te_addresss amt$f i le_byte_address» 
=amc$cyc I e_number= 

cycle_nurobers pft$cycle» 
=amc$device_cl ass= 

device_classs rr«t$device_class» 
= ainc$eoi_byte_address= 

eoi_byte__addresss amtSf i le^byte^address* 
=amcSerror_status= 

error_status8 osttstatus^condition* 
=amc$f il e_posi tlon= 

fil expositions amtst i I exposition 9 
= amcf global xfi lexnai!ie = 
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global _f ile^names aistSgl obal_f il e_naffie» 
=afBc$global_share_mode= 

global _share_rBOde 8 pf t$share_sel actions* 
=amc$ I as t^operat i on = 

last^operations amt$last_operatlon» 
=arac$i ast_op_statijs = 

I as t_op_s ta t us s a rat $ I ast_op_s t at us » 
=aiBcSiocal_f H e_name= 

I ocal _f i le_na«es amtSlocal^f i le_name* 
=arac$record_header_length= 

record_header_l engths amt$record_header_I ength» 
=amc$record_l €ngtn= 

record_length5 amt$Biax_record_l9ngth» 
=aBic$res Idual _skip_count= 

residual_skip_count s amtSresidua l_skip_count ♦ 
=afflc$storage_c lass= 

storage_classs rmt$storage_cl as3i» 
=amc$ trans fer^coun t= 

transf er^coynts aretStransf er^count t 
= a «BC $ vo i u me _n u mb e r = 

vol uflis^nuiabers amt$ volurae^nuraber, 
casend 
recendl 

♦cai I c aradinf o 
*cal Ic aredlop 
*cal I c ansdname 
♦cal I c aradopen 
*cal I c amdrcdh 
*cal I c osdstat 
*cal Ic pf datrb 
*cal i c rrodclas 



2.5.2.5 AimSLM 



♦ arodglobJ 
CONST 

amc$fite_byte_liiait = 2147^*836^8, C 2**31 bytes > 

a(nc$maxi«iuffl_block = 16777216, € 2**Z% bytes > 

amc$raax_buf fer_length = 16777216, C 2*»2if bytes 1 

afflc$fnax_f i les = 2000, 

amc$ffiaxl«iium_record = amcSf i le_byte_l iml t; 

TYPE 

amt$access_method_pointer = afflt$owncode_pointer, 
aratSbuf fer_length = 1 *. amcsmax_buf fer_length, 
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amt$f ile_byte_acldress = •• arocSf il e_byte_l imit - 1, 
aflit$f II evident i f ier = record 

ordinais aiRtSf il€_id_ordlnal » 

se quence s a»t S f i I e_ I d_seqy ence # 

prifflary_pointers aint$oiBincode_DOinterf 

secondary_poir>ters amt$owncode_oointer, 
recend* 

amt$f ile_ld_ordlnal = 1 .. amcSmax^f II es» 
amtSf 11 e_i d__seqyence = •« i>095» 
amt$f II exposition = <aiBC$bov» aiucSboit aroc$fflld_recordt amcSear, 

aiac$prior_to_eop Cafter skip_bacK> v afac$eop» afucSeoi » amcleov), 
amt$max_bi ock_l ength = 1 .. arac$raaximufli_block, 
amt$raax_record_l ength = .. afnc$niaxlraum__r€cord» 
anit$ov!incode_poin ter = ""procedure C fi le_ident if iers amt$ f I le__i dent if ier| 

cal i_blocks aiatScal l_block_seq* 

access_iBethod_pointers arot$owncode_pointer I 

VAR statusJ ost$status)t 
aratScal l_block_seq = SEQ IREP 320 of celUt 
arot$physical_transf er_count = •• amcSfliax^buf f er_l engt h, 
amt$skiP_option = <afflC$skip_to_eort a»ac$no_skip) « 
aratSterm^opt ion = <aiBC$start» afacScont inue* arac$ tertnina te)i» 
amtStransf er_count = •. aBic$raaxifliu!B_record» 
amt$ynused_bit_count = •• 7« 
aiat$working_storage_l ength = .. a«c$maxiniym_record| 

*cal I c osdstat 

2.5.2.6 AMDINFQ 

C ♦ aradlnfoJ 
CONST 

afnc$wax_al location_unit = 838860a» C2**23 bytes, 1,0^8,576 w^rdsl 
affic$roax_vol_nuwber = 6k 9 
arnc$iiiniiaum_addressab le_unlt = 20i»3; CbytesJ 

TYPE 

arutSai location_unit_l ength = aracSmin ifBura_addressabi e_un it •• 

aroc$max_al !ocatlon_unit, 
an5t$block_nymber = 1 .. a«c$ f 1 le_byte_l imit ♦ 
amt$global_f i le_narae = integer* 

amt$l ast_op_statys = CawcSactlve* amcScompI ete) f 
amt$residyai_skip_coynt = amt$skio_count, 
amtSvol yfae^nyinber = 1 •• ainc$max_vol ^number; 

♦cal Ic arodskip 
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£ ♦ amdlopl 
TYPE 

anit$last_operation = lamc$check_buf f er_req, aiBC$ciose_r8q» 
ajiic$close^volui8e_reqt aiacSdelete^req* a(ac$delete_<llrect_re:if 
amcSf etch_access_info_req» amc$f etch_req» a«c$f lush_req» 
afflc$get_direct_req, aiacSget^iabeJ^req, ajBC$get_next_reqt 
anic$get_partia i_req» a}BC$g8t_partial_direct_req» 
aiRC$?iet_segffient_polnter_rea» afflC$locK_f i le_rea» anicSopen^rs q^ 
amc$pack_bl ocK_req» aflic$pacK_record_req» anic$put_dlrect_rei» 
arac$pyt_labej.req» amc$put__next_req» ainc$put_part ial_req» 
aiBC$pyt_partia l_direct_req» amc$read_req» arac$read_di rect_^ eci» 
arac$read_direc t_sklp_reqf afBC$read_sklp_req» aracSrepI ace^rjq, 
amc$repl ace_dlrect_req» asicSrewlnd^req, a«c$rewind_vo lume_* eq^ 
afljc$seek_direc t_req» amc$set_segraent_eol_req, afflc$set_segra3nt_pos_reqf 
afflc$sklp_req» ainc$store_req» amcSunl ock_f i le^req* 
a»c$unpack_block_req» amc$unpack_record_req» aiscSwri te_req» 
arac$write_dlrect_req» arac$wrlte_e3p_reqt affic$write_tapemar<_req) ? 

2.5. 2. 8 AMDNAME 

C ♦ affldnamel 
TYPE 

aptSf He^naiae = string ( * ) -» 
aretSlocaf _f 1 le^nanie = ost$nai!ie? 

*cal I c osdname 

2.5.2.9 AHDQP EN 

C * amdopenl 
TYPE 

awt$access_l eve! = (arocSphysical » a!nc$recordi» anicSsegraent) ; 

2.5.2.10 AHOQPQS 

C ♦ amdopos> 
TYPE 

aint$open_position = (afBc$open_no_pos it loning» ainc$open_at_bol » 
awc$open_at_eop» amc$open_at_eoU ' 
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2.5.2.11 AHDQIINC 



♦ awdoHncJ 
TYPE 

amtScal l_biock = record 

case operations afstSI ast_operatlor^ of 
= aBic$check_by f f er_req= 

checks afBtScheck_buf f er_req» 
=aflBC$del ete_direct_req= 

del ds ai»t$delete_direct_req» 
=amc$f etch_access_lnf o_req= 

f e tch_access 8 are t $ f etch_acce ss_i n f o_re q» 
= arac$f etct>^req= 

fetchs amt$ f etch_reqi» 
samcSget _direc t_req= 

getds aRit$get_direct_reqf 
= a mc$ get_labe I _req= 

getls afflt$get_label_req» 
= anic$get^next_req= 

getns afBt$get_next_req» 
= anicS ge t _part i a I _r e q= 

getps amt$get_partial_reqf 
=afBC$get_partlal_direct_req= 

getpds ajat$get_partlal_dlrect_req» 
=aroc$get_segffient_poln ter_req= 

getsegps ati}t$get_segtnent_pointer_req» 
=arac$ I ock_f i 1 e_req= 

locks amtSI ock_f i le_reqt 
=afac$oper»_req= 

opens amt$open_req» 
= amc$pac k_b I ock_re q = 

packbs a»tSpack_b lock_reqt 
=afflc$pack_record_req= 

packrs amt$pack_r €cord_req» 
=arac$pyt_direc t_req= 

putds amt$put_direct_req» 
=arac$put_l aber_req= 

put IS amt$pyt_l abel_req» 
=anic$put_n€xt_req= 

pytns anitSpy t_next_req, 
=amc$pyt_part ial_req= 

pytps a»t$pyt_partial_req» 
= amcSpy t _part i a I _d i rec t_re q= 

pytpds amt$pyt_partiat_dlrect_req» 
= ainc$read_req = 

rsqs afflt$read_req» 
=amc$read_direct_req= 
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rtoas at8t$read_direct_req, 
=amc$read_dlrect_skip_req= 

rbaskps arat$reacl_direct_skip_req» 
-awc$read_skip_req= 

rsqskps aBit$read_skip_req» 
= Bmc$r%p t ace_req= 

replaces amt $rep I ace_req» 
^awcSrep i ace_direct_req= 

replds amtSrepI ace_direc t_reqf 
=affic$rew ind_req= 

rewinds ajBt$re«ind_r€q» 
=amc$rew ind_vo I ume_re q= 

rewvol 5 aRit$re*iind_volufi}e_reqt 
=aTOcSseek_direct_req= 

seekds aistSseek^dlrect^req, 
=aiac$set_segfBent_eol_req= 

segeol 5 aiatSset_segrB8nt_eoi_reqt 
= a tacS se t _s e gm e n t _p os _ r e q= 

segposs aint$set_segraent_pos_reqt 
= a mcS sk i p_r eq= 

skps amt$skip_req« 
^amcSstore^req^ 

stores afflt$store_req^ 
= a{BC$unpack_bl ock_req= 

unpack bs ai8t$unpack_block_req» 
=arac$unpack_record_req= 

unpackrs a8it$unpack_record_reqf 
= amc$virl te_req= 

wsqJ amt$i(iri te_req» 
= amcS*iri te_direc t_r eq= 

wbas arat$ii«ri te_dlrect_reqt 
casendir 
recend* 

amt$check_buf fer_req = record 
byffer_areas ^ceH» 
request_corapl etes ""boolean* 
by te_address8 ''amtSf 1 le_by te_addressf 
trans fer_count s "^amtsphysical^trarisf er_count, 
waits ost$Mait9 
recendt 
amtSdel ete_direct_req = record 

byte_address$ arat$f i J e_byte_addresst 
recendf 
amt$ fetcn_access_inf o_req = record 

inf ormat ions "aiBt$access__inf ormat ion» 
recendf 
amt$ fetch_req = record 

f i le_attributes$ ''aratSf i ie_attributeSf 
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recend* 

amt$get_direct_req = record 

worklng_storage_areas ^cell» 

working_storage_i engths a»t$warking_storage_length» 

record_l engths *amt$niax_record__length» 

transf er^coants "arotStransf er^coun t» 

byte_addresss afflt$f il e_byte_3ddress» 

f i le_posit ions ^amt$f i le_posit ion* 
recend» 
afBt$get_label_req = record 

label_areas ^cell* 

I ab€i_area_lengths aw t$ label _area_l ength» 
recend, 
amt$get_next_req = record 

working_storage_areas ''cell* 

working_storage_l engths a(BtSworking_storage_l engt h» 

record_l engths '^aratSmax^record^l engtht 

transfer^count s "amtS trans fer^coun ft 

byte_addresss ''arotSf i le_by te_address» 

f i le^positions '"anitSf ile_position» 
recendt 
arat$get_part lal_req = record 

V!forking_storage_areas ^cellt 

working_storage_l engths aiutS working_storage_i engt h» 

record_l engths '*anit$iBax_record_lefigthii 

trans! er_count5 ^amtS trans fer^coy* t, 

byte_addresss '"amtSfi le_by te_addrass» 

f i le_position8 '*amt$f i I expositions 

skip_optlons amt$skip_optionf 
recend» 
amt$get_part ial_direct_req = record 

working_storage__areas ''cell* 

working_storage__lengths aiBt$working_storage_tengt h, 

record.l engths ^amt $max_record_l ength^ 

transf er_count s '"amt$ trans f er_coy^t, 

byte__addresss aiiitS f il e_byte_address» 

t i I expositions "^aratSf il e_posit ion* 

skiP_optionS arat$skip_optiont 
recends 
amt$get_seginent_pointer_req = record 

kinds anitspointerxkind* 

pointers '*anit$segment_polnter» 
recend, 
amt$lock_f ile_req = record 

statuss *ai«t$f ile_l ock» 
recendf 
amt$open_req = record 

access^.! eve I s amt$access_l evel « 
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f i le^identif iers ''aiatSf if evident if ler, 

local^f i fe^names awt$f if e_naffle» 
recendu 
arat$pack_J3locK_pe<i = record 

buffer_areas *c€ll» 

byf fer_lengtris aatsbyf fer_l ength» 

headers amt$pack_bl ock_he a der» 

yser_inf or^at ions ^cellf 

user_inf o_l engths amt$user_inf o_lengthf 
recend-» 
anit$pack_record_req = record 

buffer_areas *cen» 

but fer_l engths asst$buffer_ lengths 

headers aiBt$record_header» 
recendf 
afiit$put_direct_req = record 

viorking_storage_areas "cellt 

working_storage_l engths aiBt$working_storage_lengt h, 

by te_addresss arat$f il e_byte_address» 
recend* 
aTBt$pyt_label_req - record 

label_areat "cell* 

label _ar ea_ I en gt h$ aia t $ f ab e I _ar e a_ I en gt h» 
recend* 
amt$pyt_next_req = record 

working_storage_areas ""eel It 

working_storage_l engths afflt$working_storage_iengt h* 

by te_addresss *amt$f i le_by te_address» 
recend» 
amt$pyt_part ial_req = record 

working_storage_areas ""celU 

working_storage_l engths amt$worklng_storage_l engths 

by te_addresss ^amt$f i le_by te_addressf 

term^opt ions anit$terro_option» 
recend^ 
amt$pyt_part iaJ _direct_req = record 

«orking_storage_areas ''ceil^ 

working_storage_l engths arot$working_storage_l engt h, 

byte_addresss amtSf i I e_byte_addres5» 

term_option8 amt$terni_option» 
recendt 
arat$read_req = record 

byffer_areas '*cell» 

by f fer_l engthS arat$byffer_ length* 

byte_addresss ^aratSf i le__byte_ad dress* 

transf er_coynt s '"arat$physica!_transf er^coynt* 

waits ostSMait* 
recendt 
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awt$read_dlrect_req = record 

byffer_areas ''eel I ♦ 

buf fer_l engthS ai»t$buf f er_length» 

byte_addresss afatSf i I e_byte_address» 

trans fer_count s ^afBtSphysical^trar^sf er_coynt, 

*iaits ost$*iait» 
recend* 
arat$read_dir€ct_skip_req = record 

buff€r_ar8as "cell* 

buf fer_lengths awtSbuf fer_lengtht 

byte_address5 aiatSf i I e^byte^address^ 

transfer_,coynt8 "*afat$i>hysical_trar^sf er_coynt» 

«aitJ ostSwaitt 
recendt 
amt$read_sklp_req = record 

byffer_areas "cell» 

buf fer_l engths arotSby f fer_length» 

by te_addresss "aratSf i le_by te_address» 

trans fer^count s '"amtsphysical _transf er^count, 

waits ost$Nait» 
recend» 
amtSreplace^req = record 

worklng_storage_areas ''eel It 

working_storage_lengths aratSworking.storage^lengt h» 
recendt 
amtSrepi ace_direct_req = record 

working_storage_ar€a8 ''cellf 

working_storage_l engths ai8t$workirig_storage_length, 

by te_addresss arotSf i I e_byt e_ad dress t 
recendf 
amt$rewind_req = record 

waits ost$waitt 
recend* 
arat$rewind_volyffle_req = record 

waits ost$wait» 
recend* 
arat$seek_dlrect_req = record 

by te_address8 amtS f i I e^byte^address-* 
recend» 
amt$set_segment_eoi_req = record 

pointers arat$segroent_pointer» 
recend» 
amt$set_seg!!ient_pos_req = record 

pointers arat$segraent_pointer, 
recend^f 
amt$sklp_req = record 

directions arat$skip_direct ion» 

unitss arot$skip_ynits» 
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counts a«t$skip_coynt » 

f i I €_pos i t i ons ""am t S f 1 1 e_o 

recendf 

amt$store_r€q = record 

f H e_attribijtess amtSstore 

r€C€ndt 

amt$urioack_block_req = recor 
buffer_areas "^cetl^ 
byf fer_lengtfi5 afiit$buffer_ 
headers '"awtSunpacK^b i ock_ 
yser_inf orraatlonJ *ce 1 1 1 
user_lnf o_l engths ""aiatSyse 

recendt 

a fats unpack _record_req = reco 
bufter_area5 ""ceMf 
by f fer_lengths amtSbuf fer_ 
pointer_kind$ anit$pointer_ 
headers '*arat$record_header 
data_address8 ^amtSsegment 

recend* 

aratSwri te_req ~ record 
byffer_areas '"ceiln 
byf fer_l engths aratSbuffer^ 
byte_addresss '*amt$f i le_by 
waits ost$t«ait« 

recend^ 

amtSwri te_direct_req = recor 
byffer_areas ^cell* 
byf fer_l engths afflt$byffer_ 
byte_addresss asitSf 1 1 e_byt 
waits ost$wait9 

recendt 



osltion» 

_at tributes, 

d 

length* 
header, 

r_inf o_l ength, 

rd 

length, 
kind, 
* 
pointer. 



length, 
te_address. 



d 

I ength, 
€__address. 



*cal ) 


Ic 


amdblkh 


»cal 


Ic 


amdf att 


♦cal 


Ic 


amdfnf o 


*cal 


Ic 


amdiabi 


♦cal 1 


c 


amdl ock 


♦cal 


c 


amdiop 


♦cal 


1 c 


amdname 


*cal 


Ic 


amdopen 


♦cal 


Ic 


amdrcdh 


♦cal 1 


c 


amdsgpt 


♦cal 


Ic 


amdskip 


♦cal 


Ic 


amdstor 


♦cal 


1 c 


osdwnw 
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2.5.2.12 AliqRCDH 

C * amdrcdhl 
CONST 

arac$niax_record_header = 16? 

TYPE 

amt$record_header = record 

header_types anit$r€cord_lieader_type, 

lengths af»t$asax_record_lengthf 

previous^lengtfis arat$fflax_record_langth» 

unused_b i t_coynt* arat $unused_bit_count, 

yser^lnf ormat ions ceM» 
recend* 

amt$record_header_length = •• amcSmax_record__header» 
amt$record_header_type = laracSf u n_record» amcSstart^record, 

amc$contlnued_record» amc$end_recordf aracSpart itlon, amc$d» I eted_recordl ; 

C * amdskip> 
TYPE 

anit$skip_count = 1 •• arocSf i ie_byte_l imit ♦ 
amt$skip_dlrect ion = CamcSforwardf 3racSback*«ard) » 

arut$skip_yni ts = (anic$skip_r€Cord» aiBC$skip_blockf amcSskip^^art ition, 
ainc$skip_tape_mark) * 

2«5.2«lif MUSIQS 

C ♦ amdstorl 
TYPE 

amt$store_attributes "=■ array! ♦ I of amtSstore^attr ibutef 
am t$store_at tribute = record 

case keys amtS f 1 le_attribute_keys of 
=aiuc$character_con vers ion = 

character_conversions booleant 
=aflBC$error_exit_procedure= 

error_exlt_procedure5 amt$error_exit_procedure» 
=amc$error_opt ions = 

err or _opti on ss afnt$error_opt ions* 
=amc$f i \ e_content= 

f ii e_content s amtSf i le_content» 
= arac$f i I e_l iffli t= 
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f ile_i Imits ajBtSf i I e_l lmlt» 
=arac$horizonta l_print_densi ty= 

horizontal _prif^t_densitys amtShorizontal^print^density, 
= amc$ I abel_exi t_proce dure= 

label_exlt_procedur€S amt$ label_exi t_procedure» 
= aroc$i abel_opt ions= 

label_opt ionss amtSlabel^optlons, 
= amc$l ine__nyiiber= 

i ine_nui»ber5 amt$l ine^number* 
=aiuc$padding_character= 

padding_characters amt$padding_character, 
=ainc$page_f orfsat^ 

039®— formats amt$page_f ormat » 
=ai«cSpage_l ength= 

page_l engths aiatSpage^l engthi» 
=aroc$pag€_width= 

page_widths amt$page_width» 
=aroc$syppress_buf f ering= 

suppress_byf ferings boolean* 
=amc$ trans f er_un i t = 

transf er^uni ts amtStransf er_unit, 
=amc$user_inf o= 

user_infos amt$user_info» 
=arac$vertlcal_print_density= 

vertical _print_densitys am t$ vert ical_print_densl ty, 
casend» 
recend* 

*cal Ic arodf 1 ie 

2,5.2.15 QSPAPPR 

C * osdaddrl 

C NOS/180 address constants. > 

CONST 



C Ring names. > 

osc$fflin_rin9 = 1* C Lowest ring number <most privi edged). > 
osc$max_ring = 15» C Highest ring number C least privledged). > 
oscSinvali during =0* 

osc$os_ring_l = !♦ C Reserved for Operating System. > 
osc$tmtr_ring = 2* £ Task Monitor. 1 
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osc$tsrv_ring = 3» C Task services. > 

osc$s|_ring_l = ^» C Reserved for systeis lob. > 

osc$sJ_ring_2 = 5f 

osc$s|_ring_3 = 6^ 

oscSapplicat ion_ring_l = 7* C Reserved for application subsysta ms . 1 

oscSappHcat lon_ring_2 = 8-, 

oscSappI icat ion_ring_3 = 9, 

oscSapplicat ion_ring_if = 10 * 

osc$user_ring = 11 » C Standard user task. J 

oscSuser_rtng_l = 12» C Reserved for yser...O*S« requests avail abie.l 

osc$user__rlng_2 = 13, 

osc$yser_ring_3 = 1^, € Reserved for yser**.0«S. requests not avai table. > 

osc$user_ring_i> = 151 

C Virtual address space dimensions. > 

CONST 

osc$niaxlmyffl_segmen t = Offf<16)» 

osc$tBaximum_offset = 7 f f f f f fe<16) , €!!« CY8IL BUG !!!> 

osc$niax_segfaent_iength = oscSmaxiisuro^of f set + 11 

C Global -local key lock definition. > 

TYPE 

ost$gl_key = packed record 

global: boolean* C True if value is global key. 1 
locals boolean, C True if value is local key. 1 
key_locks ost$key__l ock_va Jue, C Key or lock value. > 
recend, 

ost$key_lock_value = .. 3fll6)» 

C CYBER 180 forty eight bit PVA definition. 1 

ostSring = oscSinval id^ring .* oscSmax^r ing, C Ring number. > 
ostSval ld_ring = osc$min_ring .. oscSmax^ringt C Valid Ring Number. } 
ostSsegment = •• osc$maxinjum_segnient, C Segment number. > 
ost$segment_of fset = -osc$?iiaximura_of fset .* osc$iBaximum__o f fset, 
C Address offset. > 

OS t$segraent_ length =0 .. osc$max_segment_l ength, 

ost$relative_pointer = - 7fffffff<16) .. 7f f f f f f f (16) , 

ost$pva = packed record 
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rings ost$rlng, 
segt ostSsegraent , 
offsets OS t$segiaent_of f set* 
recend* 

2.5.2.16 QSQCFS 



C ♦ osdc fsJ 

C Secure memory/iiiQ parameter 1 

TYPE 

ostScI ear^f I le_space = boolean* 



2.5.2.17 QSQNA^^g 



C OSONAHE Type definitions for standard OS names. > 

CONST 

osc$narae_size = 31? 

TYPE 

ost$name_slze = 1 .* osc$nafne_si2e; 

TYPE 

ostSname = STRING (osc$narae_size ) ? 



2.5.2.18 QSQSI^T 



CONST 

osc$iBax_condition = 999 999 f 
osc$status_oaranieter_deti miter = •«•• 

TYPE 

ost$status_condit ion = .. osc$inax_condit ion? 

TYPE 

ostSstatus = record 

case normals boolean of 
=f alse= 

identifiers string (2)^ 
conditions ost$s t a t us_cond i t i on f 
texts ost$string» 
casend^ 
recend? 
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*cal I c osds tr 
2,5,2«19 Q^QIlIg. 

*cal I c zoststr 

C OSOSTR Type definitions for the 'text* portion of the status record 1 

TYPE 

ostSstring = record 

sizes ost$string_I engthf 

values string (osc$B}ax_string_lengthl » 
recend* 

C ♦ osdwnwl 

C Asynchronous request parameteri used by all NOS/180 requests tiat J 

C can be performed asynchronously to indicate whether the caller > 

C wishes to execute the request synchronously or asynchronously. > 

TYPE 

ost$wait = Cosc$waitt osc$nowait)l 

2«5,2,21 EEMIEa 

C ♦ pfdatrb> 

CONST 

pfc$maxi(8um_cycl e_number = 999* 

TYPE 

pftScycle = 1 •• pfc$f!iaxiinufn_cyc I e_number» 

pf t$permi t_options = <pfc$readf pfc$shorten» pfcsappendt pfcSmodlfy* 
pf c$execut€-» pfc$add_cycle, pfc$control)t 

pf t$usage_opt ions = pfcSread •• pfc$execute» 

p f t$usage_sel ections = set of pf t$usage_opt ions» 

pf t$share_options = pfc$read •• pfcSexecute» 

pf t$share_sel ect ions = set of pf t$share_options; 
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2.5.2.22 PHQNAHE 

C ♦ oindnareel 
TYPE 

pitit$pro9rara_nawe = ostSnamel 

*cal I c osdnafse 

2.5.2.23 RNOCLAS 

£ ♦ rmdclas> 
TYPE 

rfnt$device_class = (rmc$niass_stora9e_device» rmcSiaagnet ic^taoe^device* 

rfflc$terf!!inal_devlce) 9 
rnit$storage_class = trinc$tefflporary_d9vicef rmc$perfflanent_devi ce» 
rmc$qyeue_devlceJ • 
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2 . 6 IfllQSYNCRA CISUaEJLHg .., ^lMULiI£Q,MQS£I£^I£g^IYimii 



2.6.1 NOS/170 FILE STRUCTURE '"MARKS'* 

Neither SIMULATED NOS/VE I/O nor the N0S/17Q INTERFACE create or 
support the detection of the N0S/17Q file structuring marks 
"end_of_record*" or -end_of_file ClogicaU** with the amcSvaria t>i e 
record type. Neither SIMULATED NOS/VE I/O nor the N0S/17D INTER-ACE 
generate the "end_of _part it ion" described in the NOS/VE ERS« nor 
does it detect such a structure for any record type. 

2.6.1.1 SIMULATED NOS/VE I/O I 

The structuring marks, ••end_of ^record** and *'end_of_f ile*' are 
detected with the "interchange"* file format having a record type of 
AMC$UNOEFIN£D and an "end_of ..partition'" status is returned mhens\/er 
either type of mark is detected. 

2.6.1.2 ms,/xz!LJ.mi.§£AQ.L^im j 

The NOS/170 INTERFACE is the same as SIMULATED NOS/VE I/O for the I 

*'amc$ variable* record_type files in that it does r^ot support the I 

detection or creation of any NOS/170 structure marks. If suc^i a I 

mark is encountered the interface will abort the program. I 

2.6.2 NOS/170 FILES 

The only capacity provided by the SIMULATED NOS/VE I/O systeu is I 

that of reading* writing* positioning* opening* and closing files. 

The SIMULATED NOS/VE I/O system does xml Provide any of the I 
following functionss 

Permanent File Manager Functions 

GET* ATTACH* DEFINE* etc. 
Local File Manager functions. 
Dispose Processor CDSP) functions. 

In general* the user must perform all file preparation functions * 
prior to using the SIMULATED NOS/VE I/O system. I 
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2.7 £M!i£L£S->l£JEIL£JM£i: 



2.7.1 NOS/VE DEFAULT FILE TYPE 



MODULE amp^exaropl e deck 



?? 

♦ca 
*ca 
♦ca 
*ca 
*ca 
♦ca 
♦ca 
♦ca 
♦ca 
♦ca 
♦ca 
♦ca 
♦ca 
♦ca 



set Ciist s- off I ?? 

c araxclse 
c amxfile 
c araxfnfo 
c aiBxftch 
c araxgetd 
c amxgetn 
c amxgetp 
c amxgfat 
c ainxopen 
c amxpy t d 
c amxp\itn 
c arexputp 
c araxrewd 
c ainxstor 
set (list := on) ?? 



PROGRAM amp^exaiBple; 
CONST 

ln_fHe_naroe = "source* ^ 
out_f ile^naroe = •fmtlSO"* 
coniia_f ile_name = •output "t 
iBax_rec_size = 10 00? 

TYPE 

file = ai»t$fi I evident i fier, 
wsa_record = stringC^lt 
wsa = "^wsa^recordf 

VAR 

in_fid 8 file, 

out_fid s filet 

coraia_fid s file» 

f 11 e_attributes t *amt$f ile^attributest 

wsa^ptr s wsa» 

wsa^length : CstatlcJ integer s= roax_rec_sizet 

wsa_out_len si.. max_rec_sizet 

rec_length s amt$raax_record_lengthf 

tr^count s am t$ trans fer_countt 

skip s Cstaticl amt$skip_option 8= amc$no_skip» 
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no_sych_f iie_fnsg s CSTATICI STRINGC21I s= "SOURCE not local^fileN 
bum_gfa_i8sg s CSTATICI STRING<23I r= "bad GET_FILE_ATTRI8UTE S% 
id_iBSg s tSTATICJ STRING CSO) 8 = 

• testing GET_PARTIAL, PUT_PARTIAL» PUT_NEXT, 1000 cha- rec.% 
start_prograw.?fisg s fSTATICJ STRINGC20I s= 'prograia start AiPEXO', 
end_prografii_gisg X CSTATICI STRING<ia) 8= "end program AMPEK3*, 
terra t aint$term_option, 
file_pos s amt$ f i le_position» 
cba s amt$f i re_byte_addressi» 
Stat t ostSstatust 
local_fHes SOOLEAN, 
existing_fHe: BOOLEANt 
contains_datas BOOLEANI 

/program*/ 
begin 

St at •norma I s= TRUE; 
€ Allocate space for record area. J 

ALLOCATE wsa_ptr 3 £ ffiax_rec_size 3 • 
IF wsa_ptr = nit THEN 

EXIT /prograia#/; 
IFENO; 
C Allocate space for f i le_at tributes record. > 
ALLOCATE f i I e^attrlbutes 8 C 1 .. 5 ] ; 
IF file^attrlbutes = nil THEN 

EXIT /programs*/; 
IFENO; 
/file#/ 
begin 

f i le^attribytesTl J.key s= a)»c$access_roode| 
f i le_at tributes'*! 2 J. key s= amcSbl ocK_type; 
f ile_attributes'"t31.key s= areicSfi le_organizat ion I 
f i le^attributes"*!^ I.key 8= anic$open_posit ion? 
f i le_attribytes''I51.key 8= anic$record_type; 
C Initialize f il e_attr ibutes record for communications file. J 
arap$get_f i le_attributes ( comm_f i f e_name, f i I e_attrlbutes* , 

local_filef existing_f 1 le, contains_datat stat >; 
f i I e_at tributes'"! 1 l.access_mode s = 

$pf t$usage_se I ections t pfcSappend 1? 
f ile_attributes''t ^ l*open_posi tion 8= amc$open_at_eoi ; 
amp$file i coram_f i le_namet f i ie_attributes'"f stat )• 
ampSopen i commit i I e_narae» amc$record, comm_fid» stat 3; 
amp$pyt_next tcoram_fid» #LOC(start_program_(T»sg) » 

#SIZE (start_prograiR_msg) » cba» stat)? 
amp$pyt_next Ccomm_fidf #LOGC id^iusgl » #SIZE(i d^msg) » cba» stat)? 
C Initialize f i le^attributes record for input file. > 

amp$get_fi I e_at tributes ( in_f i le_name» f i le_at tributes'", 
local_file, existing^! i le, contalns_data, stat )? 
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IF NOT local^flle THEN 

arsuSput^next Ccomin_fid» #LOC<no_such_f i le^msgl » 

#SlZ£(no_such_f i le^msgl » cba* stati * 
EXIT /flle#/ 
IFEND? 

f i le_attrlbytes^t ll.access^mode 5= $pf tSysage^se Ject ionst pfcSread i; 
anipSfile C in_f i I e^naiBet f i le_at tributes"* » stat II 
aiBptopen I in_f i le_naise» aracSrecordf in_fid» stati • 
C Initialize user file description record for output file. J 
f i le_at tributesTl J»access_mode 3 = 

$p ft$usage_se I ect ions I pfcSshorten* pfcSappend, pfc$ni3dify 1| 
ampSfile ( ou t_f i le_name, f il e_attr ibutes"", stat i; 
aapSopen (out_f 11 e_nanie^ amcSrecordf out_fidi» stat) * 
term s= amc$start| 

C This is the wain data copying loop* > 
/roain_i oop/ 
WHILE TRUE 00 

amp$get_partiaf I in_fid, #LOCfwsa_ptr'*) , wsa_length» 

rec_fength, tr_count» cbat file_pos, skip» stat); 
vtsa_out_len 8= tr_count* 
CASE fi tempos OF 
=afBC$eoi = 

amp$put_next <cowm_fid» #LOC<end_program_msg) » 

#SIZE <end_progra»_fflsg) » cba, stat)| 
exit /main_loop/; 
=amc$eor= 

IF (terfj = amcSstartI THEN 

afflp$put_next Cout_fidf #LOC Cwsa^ptr") ♦ wsa_out_fen» 
cba» stat) 
ELSE 

term s= aiuc$terjninate; 

arap$put_part iaJ <out_fidf #LOC<wsa_ptr'") , wsa_oyt_l3n, 

cbat term* stat ) ; 
IFENO? 

term i= aracSstart; 
=amc$ffl i d_recor d= 

anipSput^partial <out_fid» #LOCCwsa_ptr"*> » wsa_oyt_len» cba^ 

term* stat ) ? 
term «= arac$cont inuel 
C NOTES no other statuses can logically occur. > 
ELSE 

CYCLE /main^loop/; 
CASENO ; 
WHILEND /main_loop/ ; 
C Close input and output files. > 
araPSclose (in_fid» stat) * 
ampSclose (out_fidt stat) ? 
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C Just for kickSf try to open the ms- files again* J 

aropSget^f i le_attriteutes < in_f 1 ia^naae, f 1 i e_attriby tes^» 

local_file» existing_f He* contains_data» stat ); 
ampSopen lin_f He^name* aiBcSrecord* ln_fid» stati* 



awpSget_f i le^attribytes i oyt_f H e_name» file. 
local_file» existlng_tl le» contains_data» 
IF HOT existing^file OR NOT I ocal_f i le THEN 
afflp$put_next i comra_fid* #LOC Cbyro_gf a_rasg) t 
#SIZ£(buii_gf a_ffisgl t cPa» stat )| 
IFENO; 
aiapSopen lout_f i I e_nagie» aiBcSrecord» out_fid» 

ampSclose <in_fid» statI* 
atapSciose loyt_fidf statJ * 
aiupSclose Ccomm^fid* stat)? 
END /file#/? 
C Free the allocated storage areas. > 
free wsa^ptr ; 
free f it e^attributesl 
END /program#/| 
PROCEHD aiap_exafflple ; 
MODE NO arap_exaniple_deck| 



.attributes' 
stat ) ; 



stat); 



2*7«2 NOS/170 INTERCHANGE FILE TYPE 



NODULE arap_exaiaple_decK 



?? 
*ca 
*ca 
♦ca 
♦ca 
*ca 
*ca 
♦ca 
*ca 
*ca 
♦ca 
♦ca 
♦ca 
♦ca 
♦ca 
♦ca 

?? 

VAR 



set Hist 
c amxcise 
amxf tcfi 
acBxfnf o 
arax file 
araxgetd 
amxgetn 
amxgetp 
amxgf at 
araxopen 
amxpytd 
aroxpytn 
auixpytp 
a«xre*id 
araxseeh 
amxstor 



= off) ?? 



set CI ist s= on) ?? 
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display_fla9 8 CXOCLI BOOLEAN := FALSE, 
d Isp I ay^cod eschar acters STRING <6%) s= 

• 8 ASCOEFGHIJKLHNOPQRSTUVWXyZQ 123if 567894--*/ «)$= , . #C 1 r'_U* •?<>a\-|% 
speclai_dlspiay_codes8 STRING C6^) 8= 

• abcdef ghil kl JBnopqrstuvwxyzCIl"' •, 
outpyt_line5 STRING I6if> s = 

• w oo oo oo oo oo oo oo oo oo oo a a 3 a a a a a a a*, 
title^llr^es STRINGCS^) s = 

•1 WORD OCTAL DATA DISPLAY C00£ CHARS."; 

CONST 

octal_data = 13» 
ascil_data = kS^ 
address_data = 9; 

PROGRAM aiiip_exa«ple ; 
CONST 

ln_file_name = *source*, 
out_file_narae = •icfile*, 
ve_file_name = "fret 180 •* 
cofflm^f ile^name = •oytpyt*» 
wax_rec_size = 6**! 

TYPE 

file = aiatSf ile_ldentl f ier, 
wsa_word = RECORD 

two_bit_f ieldS PACKED ARRAY C -1 «. 30 3 OF •• 3t 
RECEHD, 
wsa^record = RECORD 

word S PACKED ARRAYt*! OF wsa^word, 
RECENO, 
wsa = **isa_record; 

VAR 

i,J,K5 INTEGER, 

in_fid s file, 

out^fid : file, 

V8_fid : file, 

cofBBj_fid 8 file, 

fit e_attrlbytes3 ^arot$ f i le_attributes, 

dec_char : INTEGER, 

wsa„ptr 5 visa, 

wsa_out_len s INTEGER, 

rec__len9th s aint$raax_record_l ength, 

tr_count s am t $ trans fe recount, 

sKlp 8 tstaticl amt$sKip_option 8= amc$no_sklp, 

no_such_f lle^msg : CSTATIC1 STRING(21» 8= •SOURCE not locarfile', 

start_program_rasg 8 tSTATICl STRINGI20) 8= "program start AiPEXA", 
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end_prograra_msg s CSTATIC1 STRINGU8> s= "end program AMPEXI*, 
Id^aisgJ t STATIC! STRINGCi^SI 8 = 

• testing INTERCHANGE FILES for GET^NEXT, PUT^NEXT % 
esc ape 76 s BOOLEAN^ 
escape?^ S BOOLEAN* 
zero_byte s BOOLE A N» 
file_pos 8 affitSf i le_positiont 
cba 8 amt$f il e_bYte_address» 
sba s aiBtSf i l€_by te_addresst 
Stat I ost$statys» 
local_fileS BOOLEAN, 
existlng_f lle8 BOOLEAN, 
contains.datas BOOLEAN, 
word_address« INTEGER! 

/prografa#/ 
begin 
Allocate space for record area. > 
ALLOCATE wsa_ptr $ f 1 •• max^rec^size 3 I 
IF wsa^ptr = nil THEN 

EXIT /program*/ 1 
IFENO; 
Allocate space for f i le_at tributes record. > 
ALLOCATE f i I e^attrlbutess C 1 •. 5 1 ? 
IF flle^attributes = nil THEN 

EXIT /program*/; 
IFENO; 
/file#/ 
begin 

f 1 le_attributes^C il.key s= afficSaccess^mode? 
f ile_attribytes^C21.key s= amcSblocK_type; 
f ile_attrlbytes'*C3 l.key J= arac$ f i le_organizat ion ; 
f i le^attri bytes'"!^ J .key 8= amcSopen^posi t ion* 
f i Ie_attrlbytes'*t5l.key := amc$record_type; 
Initialize f i!e_attribytes record for communications file. J 
arap#get_f i le_attribytes ( coam^f i le_name, f i I e_attri butes", 

locai_file, existing_f 1 le, contains_data, stat )? 
f ile^a t tributes"*! IT. access_mode 8 = 

$pftSysage_se lections C pfcSappend II 
f i le_attribytes""Ci>l. open_posi tion 8= aroc$open_at_eol ? 
affip#file C comffl_f i l€_naiBe» f He_attr ibytes**, stat ); 
afnp#open C cowra^f i le_name» amc$record, cofnin^fid, stat ); 
amp#pyt_next Ccomm^fid, #LOC(start_program_msg) , 

#SIZ£ (start _prografn_wsg> , cba, stat)? 
aiBp#pyt_next (coiam_fid, #LOC< id^msg) , #SIZECid_msg) , cba, stat) 
Initialize f ile^attributes record for input interchange file. J 
amp#get_f i I e_at tributes < in_f i I e_name, f i I e_attr ibytes'", 
local_file, exis ting_f ile, contains_data, stat )• 
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IF Clocai_fil€ <> TRUE) THEN 

aaip#piit_next CcofBfB_fid» #LOC(no_such_f lle^iasg! , 

#SI2E(no_such_f ile^msgl » cba» stati* 
EXIT /file*/ 
IFENO? 
I ile__at tributes""! 1 l.access^mode s = 

$pf t$usage_sel ectlons C pfcSread 11 
f ile_attr|butes"'l2 l«block_tyDe s= afRC$yser_specl f led* 
f ile_attrlbutes''l31« f i le_organizat ion s= ai»c$seqyent iai ; 
f ile_at tributes'*! ^ J •open^.oos 4 1 Ion s= amc$open_at_boi ; 
file_at tributes'*! 51 •record_type s= amcSundet Ined? 
ampffile I in_f i le^naiie* f He_attributes"", stat I* 
ajBp#open < in_f i le_nafB8» amcsrecord* in_fld» stat) | 
C Initialize f ile_attrlbutes record for output interchange fil*. 
f i I e_at tr i but es"" t II * access_niode t = 

$pft$usage_se lections C pf cSst^orten* pfcsappend 1* 
amp#fHe ( out_f i le_naiRe» f it ©..attributes'"* stat )* 
afBp#open (out_f ii e^nafflet ai»c$recordt out^fidt stat) ? 
C Initialize fHe_attributes record for NOS/VE format file, > 
f i le^at tributes"! 1 1« access_niode s = 

$pft$usage_se lections I pfc$sborten» pfcSreodlfy 1| 
f i le_at tributes'*C2 T«folock_type s= amc$system_specif i ed; 
f i le_attributes*!3 I. f i ie_organizat ion s= aiBC$sequent iaI • 
f ile_attributes"t ^Kopen_positlon s= amc$open_at_boi ; 
f i le_at tributes'*! 51. record^type s= afncSvariab le? 
amp#file < ve_f i le^name* f i le^attributes'** stat ); 
arop#open Cve_f i le_naroe» amcSrecord* ve_fid» stat)? 

escape76 8= FALSE; 
escape7<* s= FALSE; 
word^address s= O; 

C This is the main data copying loop. > 
/raain_l oop/ 
WHILE TRUE 00 

amp#get_next i in_fidt #LOC(wsa_ptr'') , #SIZE<wsa_pti — ), 

rec^lengthf tr_count» sba* fife_pos» stat); 
wsa_out_len s= tr_count ; 
CASE flle^pos OF 
=arac$eoi= 

amp#put_next Ccofflm_fidf #LOC(end_prograin_rasg) » 

#SIZE (end_prograffl_msg) » cba» stat); 
exit /main_loop/; 
=amc$eor,amc$fflld_record»amc$eop= 

afBP#pyt_next (out^fidt #LOC(Msa_ptr'*) ♦ wsa_out_l en* 
cba* stat) ; 

IF display.flag THEN 
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C Convert data from S^^blt display codes to ascil characters* 1 
FOR I s= 1 to tr_count OIV 8 00 
zero^byte s= FALSE! 
FOR I $= 1 TO 10 DO 
k s= 3*1- 21 
dec_char 8 = 16 ♦ *isa_otr'*.«ordC i l.two_bit_f ieldt k1 *• 

h * wsa_otr~.wordC 11. two_t>it_f ieldC k+1 3 + 
wsa^ptr^.wordC i1.two_bit_f ieldC k^2 I ? 
K s= ascii_data ♦ 2 ♦ ( | - II I 
IF escape76 = FALSE THEN 
IF escape7i* = FALSE THEN 
IF dec_char = 62 THEN 
escap€76 s= TRUE? 
outpyt^UneCk) 8= • -; 
ELSE 

IF dec_char = 60 THEN 
escape 7^ s= TRUE* 
output_l ine Ck) s= • •? 
ELSE 

output^l ine (k) s= display_code_characte* <dec_char*-l) I 
IFENO; 
IFENO; 
ELSE 

IF dec_ctiar = 1 THEN 

output_llne<k) s= "a*? 
ELSE 

IF dec_char = 2 THEN 

oytput^lineCk) r= ""•; 
ELSE 

IF dec_char = k THEN 

outp\jt_line<k) s= M*; 
ELSE 

outpyt_Hne<k) 5= * •; 
IFENO; 
IFEND? 
IFENO; 

escape7if s= FALSE 1 
IFENO? 
ELSE 

output_l IneCk) s= special_disoiay_codes< dec_ciar-i-ll ; 
escape 76 i= FALSE; 
IFENO I 
£ Generate octal data outpyt. > 

k 8= octal^data + 3 ♦ ( J - 1 I? 

oytpyt_l ine<kl s= CHR { dec_char OIV 8 + 30(16) ) ; 
oytpyt_l lne(k4-l) 8= CHR ( dec^char MOD 8 + 30(16 1 I ; 
F0REND5 
C Generate the word.address of the file. > 
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dec_char s= sba OIV 8 * i - i? 

k s= address_data 1 

REPEAT 

output_l Inelkl s= CNR < dec_char MOO 10 f 30(161 > I 

dec_char s= dec_char OIV 10 * 

H * — K "" 1 f 

UNTIL dec_char = 9 ; 
C Check for zero^by te_terreinated I ins. > 
k 1= ascli_data + 18| 
/zero_byte_check/ 
REPEAT 

IF outpyt^linefkl = *t* THEN 
output^! ine(k) s= * •; 
k 5= k - 2 ; 
ELSE 

EXIT /zero_by te_check/* 
IFENO; 
UNTIL k < ascii^data? 

IF H word_address ♦ i - 1 ) HOD 50 > = THEN 
IF dlsplay.flag THEN 

amp#pyt„next Cve^fid, #LOC Cti tl e_l inel , #SIZ£( ti 1 1 e_l ine) , 

cba» Stat) I 
ansp#put_rv8xt CcoTBTO^fidt #LOCCtitl €_l Ine) , #SIZ EC t It le_t ine) ♦ 
cba» Stat I • 
IFENO; 
IFENO? 
IF display_fla9 THEN 

arap#put_next (ve_fldf #LOC<outpyt_l ine) , #SIZE(5utput_i ineJ , 

cbat Stat ) ? 
asRP#put_next C commit id, #LOC<output_i ine) , #SI^E(output_l ine) , 
cba, Stat ) • 
IFENO 1 

forend; 

IFENO; 

word_address s= word_address ♦ tr_count OIV 8? 
C NOTES no other statuses can logicaliy occur. 1 
ELSE 

CYCLE /main^loop/; 
CASENO ; 
WHILENO /main_loop/ ? 
C Close input and output files. > 
amp#close <in_fidf stat) ; 
ainp#ciose Cout_fid» stat) I 
amp#close <ve_fld, stati ? 
amp#close (cofljRi^fid* stat); 
ENO /me#/; 
C Free the allocated storage areas. > 
free wsa^ptr ; 
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free fiie_at tributes I 
END /pro9f*aju#/? 
PROCENO afflp_exaiBpie * 

MODE NO a(Bp_exafflple_decKf 
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2.8 INTERACTIVE FILES 



2.8.1 SIHULATED NOS/VE I/O 

SIMULATED NOS/VE I/O detects any file connected to a terjai na I 
when the file Is opened and all connected files are sypoorted. The 
user must insure that the terminal connection does not change fth^r\ 
the SIMULATOR is running. 

Terminal input and out put are provided through the Input/Output 
Control interface CIOCI of SES. All data input or output -« i I I 
appear on the *SESLOG* file too. 

When the user program requests terminal input from SIMULATED 
NOS/VE I/O, the preface "SIMULATED INPUT?" appears on the OUI POT 
file lust prior to the data input request from the INPUT file. Fhis 
preface serves to differentiate input being sent as data to the 
prpgram being simulated from input that is processed by th^ 
SIMULATOR as a command. 



2.8.2 NOS/l/O INTERFACE I/O 

The NOS/170 INTERFACE detects any file connected to a terminal 
when the file is opened. Data transmission with all such files is 
supported. The only restriction is that terminal connection nust 
not change during ^he course of execution. 
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2.9 MHULaTfJi^MaS>li£-<r>-HflS£iliL^jaj^^MM£RSiO^ 

These procedures generate or cor^vert only SIMULATED NOS/VE fi |8S 
written sequential I y« 

2,9.1 CONVERTING A NOS/170 FILE TO SIMULATED NOS/VE FORMAT 

A procedyre is available to convert NOS/170 source files 
(containing character data) to SIMULATED NOS/VE format. The 

procedure is callable under SES via the coraiaands 

SES.TO180,I=ILFN,O=OLFN,CS612 or CS6^ 

ILFN is the input INOS/170) logical file name and OLFN is the 
output <SIMULAT£0 NOS/VE foriaat) logical file name. The optional 
parameters CS612 and CS6^ indicate the character set of the iiput 
file* If this parameter is absent* CS612 is assumed, C5 612 
indicates the NOS/i70 6/12 ASCII character set, CS6^ indicates 
NOS/170 display code or 6-bit ASCII character set, Note« The iiput 
file must be in *'!'' type NOS/170 format. 

This procedure can convert only character data. It is not 
possible to transport binary information from a NOS/170 format file 
to a SIMULATED NOS/VE format file. 



2.9.2 CONVERTING A SIMULATED NOS/VE FILE TO NOS/170 FORMAT 

A procedure is available to convert a SIMULATED NOS/VE file 
(containing character data) to NOS/170 format. The procedure is 
callable under SES via the commands 

SES.FROM180,I=ILFN,O=OLFN,CS612 or CS6i* 

ILFN is the input (SIMULATED NOS/VE) logical file name and 3LFN 
is the output (NOS/170 format) logical file name. The opti3nal 
parameters CS612 and CS64 indicate the character set of the our put 
file. If this parameter is absent CS612 is assumed, C3 612 
indicates the NOS/170 6/12 ASCII character set, CS6^ indicates 
NOS/170 display code. Notes The output file will be in NOS/170 "Z" 
format. 

This procedure cannot convert binary data from SIMULATED NOS/VE 
files to NOS/170 files. 
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2.9.3 INSPECTING A SIMULATED NOS/VE FORMAT FILE 

A procedure Is available to inspect the contents of a SIMULITSD 
NOS/VE format file. The procedure prints a hexadecimal and an the 
ascii character corresponding to each 8-blt byte of data on the 
file* The procedure additionally diagnoses any errors which present 
the file from being converted by the FROM180 procedure. The 
procedure is callable under SES via the coflneands 

SES.OUMPiaO I=ILFN 0=OLFN CS612 or CSfeif FW = first LM=I ast 

ILFN is the input, SIMULATED NOS/VE forroat file and OLFN is the 
output file. If OLFN is oreitted then "•0LFN=OUTPUT" is assuned. 
CS612 and CS6i» are keywords to indicate the character set of the 
output file* If no keyword is given than CS612 is assumed. C5612 
indicates the NOS 6/12 ASCII character set and CS%k indicates tha 6^* 
character display code character set. FW indicates the first 
NOS/170 word to dump and LW Indicates the last NOS/17 word to 
dump. 

The output format is suitable for printing and is as followss 



1 WORD 
ADDRESS 

1 
2 
3 
I* 
S 
6 
7 



BYTE 

ADDRESS 



7 

E 

15 

IC 

23 

2A 

31 



HEXADECIMAL DATA 




00 
07 
i*9 
00 
hE 
00 
73 
6E 



1 


^1 

06 
00 
k3 
2 
20 



2 

00 
UB 
00 
^3 
00 
78 
63 
6t* 



3 

00 

00 
ifF 
00 
20 
6F 
65 



k 
00 
55 
07 
kD 
06 
Sk 
60 
63 



5 

00 
^6 
00 
i»D 

68 
60 
68 



00 
kk 
00 
%F 
00 
69 
6F 
20 



ASCII DATA 
1 2 3 «> 5 6 

A M U F 
I 

C M M 



C T h i 

c o m m o 

deck 



Note? The "F" column of hexadecimal data is ^-bits of fill and a 
non-zero digit here indicates the next record header on the file 
starts "f" bytes from the leftmost byte of the word. 
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2*18 MOE/iIll^lfJT£SFi££,Jir.> N0?/iia,FiL£^(iajiI££IXO|ia I 

These procedures generate or convert only NOS/170 INTERFACE files I 

written sequentially* I 

2.10.1 CONVERTING A NOS/170 FILE TO NOS/170 INTERFACE FORMAT I 

A procedure is available to convert NOS/170 source files in "Z" I 

type format ^containing only cf^aracter data) to NOS/170 INTER- ACE i 

format. The procedure is callable under SES via \\\% command* I 

SES.TO170,I=ILFN,O=OLFN,CS612 OR CS6i* I 

ILFN is the input (NOS/1701 local file natae and OLFN is the I 

output {NOS/170 INTERFACE format) logal file name. The opti5nal I 

parameters CS612 and CS6^ indicate the character set of the iiput I 

file. If this parameter is absent CS612 is assumed* C5612 \ 

indicates the NOS/170 6/12 ASCII character set. CS6^ indicates \\\<i I 

NOS/170 display code or 6-bit ASCII character set. I 

This program converts only character data. It is not possibia to I 

record binary information on a zero byte terminated file. I 

2.10.2 CONVERTING A NOS/170 INTERFACE FILE TO NOS/170 FORHAT I 

A procedure is available to convert a NOS/170 INTERFACE format \ 

file (containing only character data) to a NOS/170 **Tf type file. I 

The procedure is callable under SES via the commands J 

SES.FROM17 0, I=ILFN,0=0LFN,CS612 or CS6^ I 

ILFN is the input (NOS/170 INTERFACE format) local file name and \ 

OLFN is the output (NOS/170 format) local file name. The optional I 

keywords CS612 and CS6«f indicate the character set of the oufout J 

file. If this parameter is absent CS612 is assumed. CS612 i 

indicates ^\\% NOS/170 6/12 ASCII character set. CS6^ indicates I 

NOS/170 display code. The output file will be a "zero Dyte I 

terminated" format. 1 

This program cannot convert binary data. I 

2.10.3 INSPECTING A NOS/170 INTERFACE FILE \ 

A procedure is available to durao the contents of a NOS/170 \ 

INTERFACE format file. The procedure produces both a hexadecinai I 

dump and an ASCII character dump of each word of ^>riQ file, fhis I 

procedure also diagnoses any errors which might prevent conversion S 
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of the file by 
under SES via the 



the FROH170 
commands 



procedure. This procedure is callable 



SES.OUMP170 I=ILFN 0=OLFN CS612 or CS6% FW=f irst LW=I ast 

ILFN is the input, NOS/170 INTERFACE forraat file and OLFN is the 
output file. If OLFN is owltted "OLFN=OUTPUT'* is assumed. CS612 
and CS6^ indicate the character set of the output fife. C3612 
indicates the WOS/170 6/12 ASCII character set and CS6^ indicates 
NOS/170 display code. FW is the first NOS/17 word of the file to 
duiap and LW is the last word of the file to dump. 



The 

formats 



output of OUMP170 is printable and is in the foMo!«ing 



1 WORD HEXADECIHAL DATA 
ADDRESS 1 2 3 ^ 



ASCII DATA 
1 2 3 if 



000 

Qkh 
8 00 
0^3 
QkE 
800 
Q7B 
073 
060 



OOQ 
0^0 
0^9 
000 
Qt*f 
020 
000 
020 
020 
06F 



000 

020 
08 
OffO 
020 
060 
05«f 
063 
06E 



000 
055 
020 
000 
OifO 
020 
000 
068 
06F 
020 



002 
Oi*6 
20 
002 
OifF 
020 
OOE 
69 
060 



A 


C 
N 

C 
s 

m 



U F 



M M 



Notes A word with ascli data all blanks and a "♦" lust to the 
left of the ascii data area indicates a word containing a record 
header. 
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2*11 £Ssog^aaa£s 

The following list inclydes ontr those error codes returned by 
the SIHULATEO NOS/VE I/O system. A coiaalete list of all error cjdes 
generated by the SIMULATOR can be found in the ERS for the 
SIMULATOR. Within each ^essage^ the character string *"*F' (olys« 
letter P) is replaced by a parameter that is generated by the 
SIMULATOR. 



NUHBgR MESSAGE 



SliiiilFIMBaE 



635 •ILLEGAL AMP$FILE REQUEST, 4-P, LFN=-i'P* I 

The caller has attaraoted an AMP$FIL£ funct- ion I 
when the file is open* The file must be closed I 
before the AMPSFILE cat I is accepted* J 

6355 •+"*P«, MEMORY ERROR, STATUS=4-P* 

An error was detected attempting to reference 
virtual fBemory while processing a NOS/VE I/O 
request. The most likely cause of the erro* is 
an invalid parameter passed with the I/O call by 
the program. 

6360 ■♦CANT ALLOCATE SPACE FOR +P* 

There is insufficient space to run the program. 
Consult those who maintain the SIMULATOR and lave 
the SIMULATOR rebuilt with a larger stack/hea3 or 
reduce the amount of space used by the prograi? . 

6365 •♦PARAMETER ERROR FOR •»♦?•% LFN = *P« 

The value of the named parameter is out of range 
or the parameter specifies an ordinal not 
supported by the SIMULATED NOS/VE I/O system. I 

637 •♦ATTEMPTED SECOND OPEN OF LFN-+P* I 

An open was requested of a file which was 
previously opened and has not been closed. The 
program may contain an error or one of the I oad 
memory commands Csuch as 

Load__virtual_Environment) has been used more than 
once to reload a program for execution. For the 
latter case the Close_Logical_Fi I e command ma/ be 
used to logically cl3se the file. 

6375 •♦DIRECT ACCESS ATTEMPTED OF SEQUENTIAL FILE, LFN=^P* 

A "get^direct" or "pjt^direct*' was attempted >n a 
file opened with a f I le_organizat ion of 
"amcSsequential "• 

6380 •♦GET BEYOND ENO-OF-INFORMATION, LFN=+P' 

A sequential get has been attempted after enl of 
information has been returned for the file or the 
byte address specified for a get_direct is be/ond 
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the last record on the file. 

6385 •♦NO RECORD AT SYTE-'AODRESS OF FILE, LFN=+P* 

This error can occur for any get reque 
pyt^direct with a byte_address that is b 
of inf ortaation. This error occurs only 
mith record type aiacSvariabte* The da 
file at the current byte address c 
recognized as a valid record header. Th 
byte address does not point to a reco 
program «aklng the request must be in er 

6390 •♦ILLEGAL AHP$GET_ REQUEST, LFN=>P* 

The caller has made an AHPSGE 

AHP$GET_N£xT, or AMPS GE IMPARTIAL ca M 
access_ffiOde of the file does not includ 
elements PFCSREAD or PFC$MOOIFY fl.e. 
cannot be read}. 

6395 •♦ILLEGAL AMP$PUT_ REQUEST, LFN=^P" 

The caller has made an AMP$PU 

AMP$PUT_NEXT, or AMP$PUT_PARTIAL call 
accesses! ode of the file does not Includ 
elements PFC$SHORT£N, PFC$ APPEND, or P 
Ci.e. the file can r»ot be writtenl. 



st o* a 
efore end 
for files 
ta on the 
annot be 
e current 
rdm The 
ror. 

T_OIR£CT, 
\Hhen the 
€ the set 
the file 



T_OIR£CT, 
when the 
e the set 
FC$M03IFY 
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2 • 1 2 y ^,it N^ „ xn s nr^y 8f?-E ,r xi 



iLAim 



Programs cotfipiled with the CY8IL ICII coiBpitar may be prepared 
for SIMULATION via the GENCPF procedure* The output file from 
GENCPF is a CheckPoint File. When the SIMULATOR is called Into 
execution* the program may be loaded into the SIMULATOR by 
specifying the file as the Restart file to the SIM180 procedurs or 
after the SIMULATOR has b^en called the file may be loaded by the 
restart CRSI comaand. 

In the event that an error is found in the program* the SIMULATOR 
stops running* however all files previously opened via AMP$3PEN 
procedure calls in the program are still logically open* In 
addition* the Reregister is advanced to the next instruction be/ond 
the AHP$ procedure call. A run command entered at this point nill 
resume execution of the program at this point. 

It also possible to reload the progratR again and restart 
execution from the beginning of the program after an error stop has 
been made. For this case the SIMULATOR does not automatically 
perform the logical close of any files opened in the previous "^un. 
The user is responsible for maintaining the logical file status 
correlation between the SIMULATOR and the program. The 
Close_Logical_Fi les (CLFI command may be used at any time to 
logically close <to the SIMULATOR? any file opened by the prograt . 

When a program built via *'SES. GENCPF" runs to completion on the 
SIMULATOR the message -NORMAL termination*" is output to the 
display. This message is built into the program by GEn::pF. 
Following this message is a SIMULATOR message of the form "'♦♦ MSG 
6218S CPU HALT AT ...*■* after which the SIMULATOR accepts f urf her 
commands. To log off the SIMULATOR use the "END" command. 
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2.13 SAHPtrE TERr^lNAL SESSION FOR SINULATED NO^/VE I/O 

/get»awpex 

/ses.gencoRip »=ampex fo=base cyblcmn 

♦ GENERATING COMPILE FILE COMPILE 
» END GENCOMP COMPILE <- BASE 
/ses.cybil cl 

♦ COMPILING CONPILE 

♦ END CY8IL COMPILE •> LISTING, LGO 
/def ine, xampex 

/ses.gencpf of 1 = 190 cybilib cpf = xampex 
♦•EXECUTING THE VE LINKER. 
♦.EXECUTING THE CPF GENERATOR 

♦ END GENCPF 

/ses. print f=« I inkwap* I Isting) t^=aTOpex 
» END PRINT LINKMAP.. LISTING 
/att ach» dat a=zs!iipl sd 
/ses. to 180 data source 

♦ END TOiaO DATA -> SOURCE 
/ses.siralSO xarapex 

♦♦ HSG 6052S CYBER 180 SIMULATOR VER 6.0 <REV. Q) LEV 110 

program start AMPEX 

end program AHPEX 

NORMAL termlnatiof^ 

♦♦ HSG 62185 CPU HALT AT P=0000 8000 0000 0018, STATE=JOB 
? end 

» END SIM180 
/ses.fromiao fratlSO list 

♦ END FROH180 FMT18 -> LIST 
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2.14 NOS/irg INTERFACE DIFFERENCES 

2.1 if NOS/178 f HTERFACE OIFFEREt^CES 

Differences between SIMULATED NOS/¥E I/O and the NOS/170 
INTERFACE have b%en aiinimizedt but cannot be cowpletely el isiinat- ed. 
These differences arise frois the hardware differences between the 

two wachines and froro the intentionally designed differences bet»ieen I 

the two operating systems. The differences ares I 

1. Workin9_storage_length parameter is always given in CELLs and I 
should be generated via the #SIZE function of CY3IL. i 
Difticulties ffiiay arise when communicating with an interactive I 
file because this device type requires a length in charactars. I 
NOS/VE has no probleffl here because CELL size equals character I 
size. NOS/170 packs 5 characters per CELL (word). Unless the I 
user's messages are multiples of 5 characters there is a i 
possibility that 1 to 4 garbage characters may be transiBitted to I 
the teralnat. The NOS/170 INTERFACE will truncate all I 
••non_ graphic" characters in the last CELL of data. The NOS/i7 I 
INTERFACE also blank fills any remaining characters in the last I 
CELL of any input data. Normally all CY8IL variables start on a I 
CELL boundary* but an exception is strings that are part of a I 
PACKED RECORD. If the message does not start on a CELL boundary I 
1 to k garbage characters may precede the message transmitted to J 
the terminal. Input from a terminal to a variable not start irig I 
on a CELL boundary may result in the loss of the first 1 to i* 1 
characters of data. I 

2. Since both NOS/VE and SIMULATED NOS/VE I/O simulate the same i 
procedures* both would ordinarily have the same entry_p3int i 
names. In order to avoid this problem the SIMULATED NOS/VE I/O I 
procedures have entry_point names beginning with ••AHP#*% whe-eas 5 
NOS/VE will keep the entry^point names beginning with ^'AM^S". f 
The "AMP#" entry_point names will come from the copy of the I 
common decks for NOS/VE kept on the CY8ICMN library. Should one I 
want the NOS/VE common decks instead* they may be obtained by I 
specifying and alternate base with these common decks to I 
SES.GENCONP. J 
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2.15 SAMPLE SESSION FOR THE NOS/170 INTERFACE 

2.15 SiM£L£-.S£ISIfi!i-SM,-XiiE^Saillia-IMI£g£A££ } 

/get* source I 

/ses*tol70 source ! 

* ENO T0178 SOURCE 

/ses.gencofflp ra=a«pex i>=amo cyfoccwn I 

* GENERATING COHPILE FILE COMPILE I 

* END GENCOMP COHPILE <- AMP I 
/ses.cybil debug 

* COMPILING COHPILE 

* END CfBIL COMPILE -> LISTING, LGO 
/ses«iinkl7Q cybcllb debug 

* END LINK170 LGOB,ZZZZZDT 
/debug? on 
$DE8UG,0N. 
/I gob 

CY8IL INTERACTIVE DEBUG 
? sb llli*?go 
progratB start AMPEX 

♦8 #1, AT LIME=llli* 
? dv t recount 

TR^COUNT = 2 
? cb b=i;go 
end program AMPEX 

♦T #17, END IN MODULE SW=CMFR OFFSET 0<8J 
? quit 

DEBUG TERMINATED 
/debug, off 
$OEBUG,OFF. 
/ses.froral70 fiatlSO file 

* END FROM170 FMT18 -> FILE 
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3»1 PMXGTIM IPMPSGET TIME) J 

C 

C The pyrpose of this request is to obtain the current time of day 

€ in a user selected format* 

C 

C PMP$GET_TIME (FORMAT, TIME, STATUS^ 

C 

C FORMAT? Clnputl This parameter specifies the format in which r he time 

C will be returned. Valid specifications ares 

C piBC$ampiB_tiree s HHSMM AM or PM 

£ example: is 15 PM 

C pf8C$h«s_tiffle i HHIMMSSS 

C exaffipie: 13 s 15 s 21 

£ piacSmillisecond.time s HHSMMrSSsMMM 

C example? 13M5*218«t53 

£ 

£ TIMES (output) This parameter specifies fhQ current time. 

£ 

£ STATUSs (output) This parameter specifies the request status. 

£ 

PROCEDURE CXREF3 pmp$get_time (formats ost$time_f ormats? 
VAR times ostStime? 
VAR statuss ostSstatus) % 

3.2 PMXGDAT IfyiPaQET DATE) 

£ 

£ The purpose of this request is fo obtain fhQ current date ii > 

£ a user selected format. 3 

£ 

£ PMP$GET_DATE (FORMAT, DATE, STATUS) 

£ 

£ FORMATS (input) This parameter specifies the format in which the date 

£ will be returned. Valid specifications ares 

£ pmc$month_date s month DDt YYTY 
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3.2 PHXGOAT CPMP$G£T_OATEI 

C examples November 13 t 1978 

C pmc$iRdy;.date 8 MM/09/Yy 

C examples 11/13/78 

C pi»c$lso_dat€ s YYYY-MH-OO 

C exafflplei 1978-13-11 

€ p«c$ordlr^al_date s YYYYOOO 

C example 5 197831? 

C 

C DATES CovitputI Tt^is parameter specifies t!>e current date. 

C 

C STATUSs Coutput> This parameter specifies the request statys, 

C 

PROCEDURE CXREF3 prap$get_date (formats ost$date_f ormats? 
VAR dates ostSdate? 
VAR statuss ostSstatusI * 

3.3 £MXLSIL.ieM£tJLfi£I 

This interface differs from the description in the NOS/VE ERS, in that TEXT 
issued as a message to the CY8ER 170 dayfite* bracketed by ths laessages •*** 
MESSAGE ♦♦♦• and *♦♦♦ HSS MESSAGE ENDS »*♦•. The parameter LOG Is not used, and 
included solely for the sake of compatibility with NOS/VE. 

C 

C The purpose of this request is to place a message onto the dayfile 

C 

C PMPSLOG { TEXT, LOG, STATUS ) 

< 

C TEXTS (input} This parameter specifies the text of the message, 

C 

C LOGS CinputI This parameter specifies which logls) is to recei/e 

C the message* 

C 

C STATUSS Coutput) This parameter specifies the request status. 

C 

PROCEDURE tXREFl pmp$log (texts pmt$ log_msg_text t 
logs pmtSlogset? 
VAR statuss ostSstatusJ? 

3 . k PMX£llSa^£M£lS£L-.HI£EOS££fiiJO_£LO SHI 

This routine functions differently depending on whether CPU_riMING is turne 
or off in the CYBER 180 SIMULATOR. If CPU_TIMING is turned on, then the vari; 
MICROSECONO_CLOCK returns an accurate value of the time since the star 
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3,0 SIMULATED NOS/VE PROGRAM MANAGEMENT INTERFACES 
3.ff PMXGMSC rPMP$GET_MICR0SEG0HO_CLOCKI 

execution. If CPU_TIMING is turned off* then MICROSECONO_CLOCK ::ontains a coun 
the instructions executed since the beginning of execution. 

C 

C The purpose of this request is to obtain the current value of the 

C fiicrosecond clock. Successive requests are guaranteed to retjrn 

C different values. 

C 

C PMP$GET_MICR0SEC0ND_CL0CK (MICROSECOND_CLOCK, STATUS) 

C 

C MICROSECONO_CLO€KS Coutputl This parameter specifies the CKirrsrtf value 

€ of the microsecond clock. 

C 

€ STATUSs CoutputI This parameter specifies the request status. 

C 

PROCEDURE CXREFJ pi»p$get_microsecond_clock <VAR ailcrosecond_cloc< s 
OS t $m i cro sec on d_c I ock ; 
VAR status? ostSstatus) I 

TYPE 

ost$microsecond_clock = .. f f f f f f f f f f f f (161 ; 

3.5 Mli-JI^S 



3.5.1 PMDLOGP 

C System logging interface type declarations. > 

TYPE 

pmt$l og_msg_text = string i * )f 

pmt $ I og_msg_ori gin = Cpmc$fnsg_origin_command» prac$msg_origin_s/stem» 
omc$msg_or igin^proceduref pmc$msg_or igln_program> t 

pmtSlogs = Cpmc$|ob_statlstic_log, pmc$account_log» pmcSengine* ring_iog, 
pmc$statistic_log» pmcSsystem^logt pmc$ Job_l og> , 

omtSascii_logs = prac$system_log .. pmc$|ob_log» 

pmt$binary_logs = pmcS} ob_stat istic_l og •« pmcSstatistic_log» 

pmtSgl obal^logs = pmc$account_tog •• omc$system_f ogt 
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ps?t$logs«t = set OF PfBt$logs» 
pratSascii^logset = set OF pfiit$ascii_logs» 
pmtSbinary^l o^set = set OF pffit$binary_logs» 
pmtSgl obal_l ogset = set OF piiit$global_logs1 



3.5.2 OSOTIME 



C Time request return value. 1 

TYPE 

oststinie = record 

CASE tiwe^forfaats ost$t ifse_f ormats OF 
= osc$ampm_t ifBe= 

ampms string 18), C HHSMMS AM or PM > 
= osc$hffls_t iite= 

hmss string C8)t C HHSHMSSS J 
= osc$mi II Isecond^t ifne = 

failliseconds ost$time_mSf 
CASEND, 
recend, 

ost$tifl}e_ms = string 112) » C HHSMMSSS. MMM J 

ost$time_formats = loscSdef aui t_tireet oscSampm_time» oscShms^ti mef 
oscSniil I isecond^time) I 

3.5.3 OSODATE 



£ Date request return value. > 

TYPE 

ostSdate = record 

CASE date^formats ost$date_f ormats 9F 
=osc$fflonth_date= 

month: string <18), C month DO, YYYY > 
=osc$mdy_date= 

COMPANY PRIVAfE 



J «5 
COC SOFTWARE ENSINEERING SySTEH 

01/25/80 
ERS for SIHULATEO NOS/VE PROGRJIH INTERFACES 

3.0 SIMULATED NOS/¥E PROGRAM HANASEHENT INTERFACES 
3,5,3 OSODATE 



radys string C8I» £ HH/OD/YY > 
=osc$iso_date= 

isos string CIOI, C YYYY-HM-00 > 
=osc$ordinal_date= 

ordinals string C7I, C YYYYODO > 
CASEND, 
recend* 

ost$date_f orwats = loscSdef aul t_dat8t osc$!Bontt?_date» osc$mdy_1at et 
osc$iso_datef osc$ordlna!_datel I 

3.5. if OSOSTAT 



CONST 

osc$!nax_condition = 999999* 
osc$statas_?>araiB€ter_de I inlter = "*•? 

TYPE 

ost$statys_condltion = .. oscSraax^condi t ion; 

TYPE 

ostSstatus = record 

case noriaals boolean of 
=f alse= 

identifiers string C2)» 
conditions ost$status_condition» 
texts ost$string» 
c as end* 
recend* 

*cal 1 c osdstr 
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